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MOSBI 
ELEKTRON IK 

Urbán István mérnök áramköreinek szaküzlete 


Budapest VII., Dózsa György út 16. (Dózsa—Jobbágy sarok) 
Nyitva: H-P 10-17-lg Tel./fax: 122-8892 
(Zárás után üzenetrögzítő) 


Több, mint tíz éve írok a Rádiötechnikéban, vezetem a „Zenei hobby elektronika” fejlécül rovatot. A közölt témák 
nagyrészéhez szakOzletemben - működö minta alapján - vásárolhat panelokat, részegységedet, egységcsomagokat. 

KÍNÁLATUNKBÓL; 


SZÁMÍTÁSTECHNIKA: 


C64 bővítők: »gys. éleszt. | 


RT89/3 

PLOFIOatassettecartridge ... 

.1200 Ff... 

...1500 Ft 


PLOFI Datassette^jromon. 

.1300Ft... 

.1700 Ft 


PLOFI Datassette.'help. 

.1300 Ft... 

...1700 Ft 

RT89/10 PLOFIFastIoadcartridge. 

. 1300 Ft.,. 

...1700 Ft 


PLOFI Fastioad speedtape.... 

.1400 Ft... 

...1900 Ft 

RT90/3 

PLOFI Simon's cartridge. 

.1300 Ft... 

...1700 Ft 


FINAL III cartridge. 


...3450 Ft 


ACTION ReplayVII. 


...3450 Ft 

RT89/11 Férryceruza. szoftverrel. 

,...950Ft.., 

...1250 Ft 

RT90/8 

Hangdigitalizáló *■ szoftver..... 

..1350 Ft„, 

...1650 Ft 

HE90/8 

Hangkapcsoló. 

... 300 Ft 


HT89/4 

EPROM-égető. 

..3400 Ft.„ 

...4500 Ft 


Égető szoftver lemezen. 

,.1300 Ft 



Égető szoftvercartridge. 

..1300 Ft... 

,1700 Ft 


User csaliakozó. 

300 Ft 


RT91/3 

EPROM-bank(256Kbáit). 

, 2900 Ft ,. 

...4000 Ft 

RT91/10 ICteszter. 

. 3000 Ft 

4500 Ft 

RT91/7 

Datassette gyorsmásoló. 

.,..600 Ft 


HE91/7 

Datassettefejbeállltő. 

...350 Ft 


HE90/12 CPU stop + rését. 

...400 Ft 



, PAGEFOXszővegszerkesztö 


. 3900 Ft 


.Mini EPROM-bank. 

.2300 Ft... 

.3000 Ft. 

1 

IBM bővítők: 

ogys. 

éleszt. 

RT91/4,5 

IBM ICteszler-f szoftver 5900 Ft... 

.,9800 Ft 

RT91/11.t2 IBM EPROM-égetö 




♦ szoftver. 

.4800Ft ., 

9900 Ft 

RT91/6 

48 csat. IrO kártya. 

3500 Ft 



HE92/2 User-Centronicscsatlakozó.950 Ft 

RT92.'3 TTL IC katalógus lemezen.600 Ft 

CMOS IC katalógus lemezen.600 Ft 

Dióda katalógus lemezen.600 Ft 

Tranzisztor katalógus lemezen ...600 Ft 


ZENE - HANGTECHNIKA: 


RT87/10 Fuzz-box torzító.670 Ft 

RTOOiri KORG DST -1 torzító.1200 Ft 

.KORG DST-3 torzító.1400 Ft 

HE90/1 KORG OVERDRIVE torzító.920 Ft 

RT87/12 Vau-vau gitáreffekt.640 Ft 

RT88/9 Sztereó tremoló.980 Ft 

RT8&7 Shifter..1200 Ft 

HE9<V7 Kiszajúgitárelöerősilö.700 Ft 

RT89.'5 Sztereó előerősítő.1500 Ft 

HE91/12 Hangfrekvenciás erősítő.490 Ft 

RT89ir8 2 x 14 W sztereó erősítő.990 Ft 

HT89iri2 2 X 40 W sztereó erősítő.1800Ft 

RT89iri 100 Wos erősítő._.1600Ft 

RT90/3 Ritmusgép 32 ritmussal.2500 Ft 

RTgOiTIO Dobszintetizálor.3500 Ft 

RTSSrO Süvöltő gitáreffekt.780 Ft 

RT87/11 Ringmodulátor.995 Ft 

RT92'4 Oktávemelő.700 Ft 

.VisszhangositóMN3005-tel.4800 Ft 


VIDEÓS TÉMÁK: 


RT92/6 RGB generátor.1760 Ft 

RT92'11 PALkóder..1400Ft 


FÉNYTECHNIKA: 


RTSS/tO Diszkófény II (triak nélkül). 1400 Ft 

Diszkólény II (Iriakkal).3000 Ft 

RT88/12 Fényorgona. 2000 Ft 

RT90,'2 Programozható futólény. . 1 200 Ft 

RT91/1 8 X 8-as lénymátrix 

+ 16 K EPROM.2000 Ft 

8 X 8-hoz LED panel 

10 mm-es LED-ekkel.2000 Ft 

RTB9/6 Kivezérlésjelző.700 Ft 

RT91 i'B Sziporkázó szingyürű.650 Ft 

Kétszínű LED.46 Ft 

HE91/10 Karácsonyifényjáték.700 Ft 

HE92/B Knight Rider futófény.950 Ft 


EGYÉB HOBBI TÉMÁK: 


RTBB/10 Dallamgenerátor Z80-nal.1500 Ft 

HE91/1 Dallamgenerátor UM34B1 -84 . 800 Ft 

HE91/5 Dallamgenerátor LIM66Txx.480 Ft 

HE91/4 Beszédfelismerő VCP200-zal. . 750 Ft 

VCP200. 1950 Ft 

HE91/2 Kutyaugatás szintetizátor.800 Ft 

RT91/8 Eb-vezérlő.400 Ft 

HE91,'6 Szúnyogriasztó..700 Ft 

HE91/9 Multisziréna.480 Ft 


Az árak a 25% ÁFA-t tartalmazzák! 


Választékunk folyamatosan bővül! A Rádiótechnikában, a Hobby Elektronikában megjelent 
nyák-tervek alapján készült nyomtatott áramköri lapok az üzletben megvásárolhatók. 



Vidéki olvasóknak segít a szerző levelező, egységcsomagkúldö 
szolgáltatása: a megrendelt csomagot postán utánvéttel 
elküldöm. Telefonon/faxon és levélben Is rendelhet, 

A HOBBI ELEKTRONIKA-hoz nem kell hosszú levél. Rendelését 
néhány sorban, egyértelműen közölje. 

Levélcím: 1656 Budapest Pf. 50. 


Az Üzletben megvásárolhatók az RT évkönyvei, a Rádiótechnika és a Hobby Elektronika korábbi számai. 




















































































































EGYESÜLET 


0 ^ 


MIT, HOGYAN, HOL, MIKOR? 

EGYESÜLETI ÜGYEK: Egyesületünknek tagja lehet min¬ 
denki, aki a tagsági díjat befizeti. A tagdíjat személyesen az 
egyesület irodájában (1025 Budapest, Vöröstorony utca 29. 
Telefon: 1-76-22-57), vagy átutalással az MNB 217-98 292, OTP 
565-3610-8 számlára lehet befizetni. Megrendelés esetén szám¬ 
lát küldünk. 

Pötyögőszolgálatunk valamint a szervizkedvezmény és az 
apróhirdetés lehetősége tagjaink rendelkezésére áll. 

A DEÁKPÁHOLY tagjai minden hónapban megkapják a 
C-újságot, a tagsági díj egy egy évre 890 Ft. 

A PLUSZPÁHOLY tagjai minden hónapban megkapják a 
C-újságot, és kapnak havonta 3 db vásárlási utalványt. A tagsági 
díj egy évre 2050 Ft. 

A SZUPERPÁHOLY tagjai havonta 15 példányt kapnak a 
C-újságból, és ezzel havonta 15x3 db vásárlási utalványt is. Az 
éves tagsági díj 24 000 Ft. 

ÜGYFÉLFOGADÁS: Minden kedden és csütörtökön 12—16 
óra között várjuk tagjainkat és az érdeklődőket. 
PÖTYOGOSZOLGALAT: Az újságban megjelenő programo¬ 
kat másolja a megrendelők részére. Megrendelhető személyesen 
az egyesület irodájában vagy postai utánvéttel. Postacím: 1388 
Budapest 62., Postafiók: 86. 

APRÓHIRDETÉS: Az egyesületi tagoknak ingyen áll rendel- 
kezé.sérc. Nem tagoknak a hirdetés ára 100 forint. A hirdetés 
módja: az újságban megjelenő nyomtatvány kitöltésével. 

A C-ÚJSÁG RÉGEBBI SZÁMAI megvásárolhatók az egyesü¬ 
let irodájában, vagy megrendelhetők utánvéttel. 

Kedvezményes ár! Tagoknak olcsóbb! 

Az újságban eddig megjelent programok gépenként össze¬ 
gyűjtve megrendelhetők. VC 20, C16, PLUS/4, C128, C64. To¬ 
vábbi felvilágosítást is adunk a 1-76-22-57-es telefonszámon vagy 
levélben! 

Vidéki pluszpáholy-tagjaink háromhavi tikett összegyűjté¬ 
sekor igénybe vehetik a NOVOTRADE 2C Áruház csomagküldő 
szolgálatát. 

VIDÉKEN TOVÁBBI INFORMÁCIÓK KAPHATÓK: 

Baja, AXIS Kft., 

Győri Bartók Béla Művelődési Ház, 

Jászberényi Városi Könyvtár, 

Kecskemét, SZIGMA—BIT, 

Pécsi Apáczai Csere János Gimnázium, 

Zalaegerszegi Ságvári Endre Gimnázium. 


Az Országos Commodore Egyesület módszertani kiadványa 

Egyesületi iroda és szerkesztőség: 

1025 Budapest, Vöröstorony utca 29. Telefon: 176-22 57 

Felelős kiadó: Horváth Judit, az egyesület elnöke 

Főszerkesztő: Rados Péter, az OCE főtitkára 

Felelős szerkesztő: dr. Horváth András 

Művészeti szerkesztő: Bausz Sándor 

Levélcím: Commodore Üjság, 1388 Budapest, 62. Pf.: 86. 

Index: ISSN 0237-756 X 

Terjeszti a Magyar Posta 

Megvásárolható a hírlapárusoknál 

93.0136 MSZH Nyomda és Kiadó Kft., Budapest 

Felelős vezető: Nagy László 


PALYAZAT 

Az Országos (Commodore Egyesület pályázatot hirdet. 
A pályázaton bárki részt vehet A pályázat tárgya: 
C64-en vagy C+4-en futó, saját készítésű felhasználói 
program. A program a gép saját BASIC nyelvén ké¬ 
szüljön, teijedelme ne haladja meg a 300 sort. A prog¬ 
ramot kérjük lehetőleg lemezen (esetleg kazettán) be¬ 
küldeni. A pályázatnak tartalmaznia kell a program 
felhasználói útmutatóját, valamint a program belső 
működését ismertető leírást. 

A pályázat helyezettjei számítógépeket és tartozé¬ 
kokat nyernek. 

A pályázat beküldési határideje: 1993. szeptember 20. 

A pályaműveket kérjük az egyesület postacímére: 
1388 Budapest 62, Postafiók 86. eljuttatni. A borí¬ 
tékra írják rá: ,A^lkalmazói program pályázat” 

Pályázatunknak nem titkolt célja, hogy egyesület tagjai és 
a lap olvasói olyan programokkal lepjék meg egymást, 
melyeket az iskolában, otthon, munkahelyen, kisvállalko¬ 
zásban jól tudnak használni. A programok használhatóságát 
nagymértékben meghatározza a dokumentáció minősége. 
Ezért felhívjuk pályázóink figyelmét az 1993/4-es számunk 
„Még többet ésszel” rovatában leírtakra. 

Országos Commodore Egyesület 


C-64 C+4 AMIGA PC 


tulajdonosok! 

Várunk benneteket az Országos Commodore 
Egyesület klubdélelőttjén a Havatma Közösségi 
Házban minden hónap 3. vasárnapján, délelőtt 9 
órától. Gépet és hosszabítót hozzatok! 

Cím: 1181 Budapest, Kondor Béla sétány 8. 
Megközelíthető: a metró kőbánya-kispesti végál¬ 
lomásától a piros 136-os busszal. 

Legközelebb: 

június 20-án. 


FELHÍVÁS 

Tisztelt Tagtársunk, Olvasóink! 

Kéijük, hogy ha rendeUceznek olyan működő számító¬ 
géppel, vagy jó állapotban lévő bármilyen számítógép¬ 
tartozékkal, amire nincs szükségük, akkor hozzák cl 
egyesületi irodánkba (minden héten kedden és csütörtö¬ 
kön 11—15 óra között). 

Mi összegyűjtjük és eljuttatjuk azokat határainkon túli 
(erdélyi, kárpátaljai és szlovákiai) magyar iskolákhoz. 
Köszönettel: 

Országos Commodore Egyesület 


JÚNIUS 






















o 


O 


EGYESÜLET 


o 





10 

PR I NT " ri" = DI MR CIO. 10 > 

o 

20 

GOSUB 1000 


30 

GOSUB 2000 



32 

SZ=0 


o 

35 

JZ=0 



37 

FÓR I = 1T07 : FOR.J= 1T06 ‘ R < 

o 

40 

L=1 



50 

GOSUB 3000 


o 

55 

GOSUB 4000 


57 

IF JZ>0 OR 

SZ=42 THEN 

o 

60 

L=2 


70 

GOSUB 3000 



75 

GOSUB 4000 


o 

í l' 

IF JZ>0 OR 

SZ=42 THEN 


80 

GOTO40 



o 


I. J>=€ = HEiXTJ. I 


GOTO 5000 


O 


O 


O 


O 


O 


O 


O 


O 


O 


5000 


939 REH mmmmmmmmmm 
1000 REM*J|í jnTEECSSRERLVOEÍ m 
REri***:*;*Hí**4:**#:*i<í****** 

PR I NT " JRTEKSZRBRI._Vi'l<******í(í*Hí " 

CENTRE"MüW JRTEKOT RETTEN JRTSZHRTJRK."SPRINT 
CENTRE ":?fl JRTEK LENVEGE. " = PR INT 

CENTRE ">t.EEGV KORONG RLLJON EGVNRS HELLETT ".PRINT 
CENTRE " BRRM ILVEN IRRNVERI-E. " ^ PR I NT 
CENTREKORONG MINDIG R SZRMMRL JELZETT" ' PRINT 
CENTRE"OSZLOPBR ESIK."=PR INT 

CENTRE"Wl-IR VRLRMELVIK JRTEKOS NVEROR JRTEK" ^ PRINT 
CENTRE"MEGRLL..ES R GÉP KIJELZI R NYERTES" = PRINT 
CENTRE"JRTEKOST.”‘PRINT 
CENTRE " ;e!ftMiíl:;SPnCE> " 

REPERT ‘ GETR* ‘ UNT 1 LRí^^" " 

RETIJRN 

RE N * i* * * ílí ipt; * * * itiif * ■*: * iií Hí i+i * * 

RÉM m PRLVR RRJZOLRS 
R E M * * * * Hí Hí íK :♦( Hí Hí * Hí * * :Hí M íHí H: Hí 
HIRES2.1 


O 


O 


O 


O 


O 


O 


O 


1001 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1030 
1090 
1 100 
1110 
1120 
1130 
1980 
1990 
1995 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2980 
2990 
2995 

3000 

3001 

3002 

3003 
30 10 
301 1 
3012 
3030 
3040 


FÓR I ==20TO 140STEP20 
LINE20,I.160.I.1 
NEXTI 

PORI=20TO160STEP20 
LINEI.20.I.140.1 
NEXTI 

TEXT25,5."1 2 3 4 5 6 7".1.2.10 
CIRCLE240.60.10.lO.1 
PRINT240.60.1 
CIRCLE240.9O.10.10.1 
TEXT200.53."1=".1.2.8 
TEXT200.84."2‘".1.2.8 
RETIJRN 

RÉM HHHHHHHHHHíH 

RÉM HHí LÉPÉS HH 

RÉM HHHHHHíHHHHH 

TEXTS.160.STRT C1>.0.1.8 

TEXT8.160.STRT C 2 >.0. 1.8 

TEXTS. 160. STRTCL;' . 1 . 1.8 

TEXT 16.160. " . JRTEKOS L.EP ".1.1.8 

REPERT‘GETLE‘UNT IL. LE>0 RND LE-CS 

F0RH='1T07 

TEXT128.160.STRT < H >.0. ■ 1.8‘NEXT H 
TEXT128. 160.STRT kLE J.1.1.S 
1=0 


Tisztelt 

Szerkesztőség 


A lemezen küldök egy játé¬ 
kot, amelyet Commodore 64-e.s 
gépen írtam Simons Basic bővíté¬ 
se alatt. 

A játék neve: C.sőarnőba. 

A játékot két játékos jálszhat- 
ja. Runnal indítva megjelenik a 
játékszabály, ahonnan a SPACE- 
vel léphetünk tovább. 

A képernyőn megjelenik a 
játéktér. Lépni az 1—7 billentyű¬ 
vel lehet, felváltva. 

Ha valamelyik irányban ki¬ 
jön a négy korong, a program je¬ 
lenti a játék végét, és egy SPACE 
után a győztes játékost. 

SOK SIKERT A JÁTÉK¬ 
HOZ! 

Tisztelettel: 

Beréti István 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


JÚNIUS 4 















EGYESÜLET 



o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


3050 REPEFiT 
3060 1 = 1 + 1. 

3070 UHTILRCLE,I>=0 

3072 IF I>6 THEH GOTO 3000 

3075 fic:LE.I)=L 

3030 CIRCLELEMÍ20+10,150--1 Hí20.. 8,8.. 1 
3090 IF-L=1 THEN Pfl]:HTLE+;20+10, 150-1+:20,. 1 
3100 RETURN 

3930 RÉM **:f**HíHiHíHíHí*Hí*Hí* 

3990 RÉM ** ERTEKELES ** 

3995 RÉM HfHíHfHíHf********** 

4000 F0RJ=1T06 
4010 F0RI=1T04 

4020 S=Fl < I, J :>HiFi < I +1, J > *n < I + 2 / J > HíFi <; I +3 / J > 

4040 IF 3=1 THEH ..T2=l 

4045 IF 3=16 THEH .JZ=2 

4047 3=0 

4050 HEXTI.. J 

4055 IF .JZ>0 THEH GOTO 4500 
4060 F0RI=1T07 
4070 F0RJ=1T03 

4080 s=R(;I, j::‘Hír<;i,. j+i^ hírc:i, j+2>híFi<;i....t+3> 

4092 IF 3=1 THEH .TZ=1 
4095 IF 3=16 THEH JZ=2 

4100 3=0 

4101 HEKTJ.. I 

4115 IF JZ:>0 THEH GOTG 45G0 
4120 FORI=1T04 


O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 


4130 FDR.T=1TÜ3 

4140 S=Rí: I, J^HíRc; I + l, J+1 );'HFl':: 1+2, J+2>HíFl':; 1 + 3, J+3> O 

4150 IF 3=1 THEH JZ=1 

4160 IF 3=16 THEH JZ=2 O 

4170 3=0 
4130 HEXTJ,I 

4190 IF JZ>0 THEHGQTÜ 4500 ^ 

4200 F0RI=7T043TE;P-1 

4210 FQRJ=1T03 ; . O 

4220 3=RÍ I, .TÍ'HíRv 1-1 , ..T+1 >4;R(;.I“2, J+2>*H'-: 1 - 3 ’. J+3> ' ■ ' 

4230 IF 3=1 THEH JZ=1 ' - ‘ ' Q 

4240 IF 3=16 TI-IEM .JZ=2 ‘ ' 

4250 3=0 ■ „ 

4260 HEXTJ,I ^ 


4500 SZ=SZ+1=RETURH 

4930 RÉM HíHí4::(í**i^**i+iH'i*Hí*H'i O 

4990 RÉM m BEFEJEZES *4; 

4995 RÉM *.H'::+iif.Hí;+:*H;;HíHí*ifHíHíif O 

5000 TEXT200, 120, " VEGE ! ", 1,8 .."15 

5010 REPERT : GETRT- ^ UHTI L.FH:=" " „ 

5020 C3ET1 ^ 

5030 PR IHT " Z[i!!li''Iiíl" 

5040 IF SZ=42 RHD JZ=0 T'HEH GOTO 5060 O 

5050 PR I HT " Iliit W inlítmwSHiJiUiaiw. '■; .jz :• " . ■•flTEKÜS MVERT !:«««" = GOTO5070 ^ PR I HT 
5060 CEHTRE"-0HTETLEH"^ PR IHT 

5070 CEHTRE "■^K;RRTOK MEG JFiTSZRHI ^ PR IHT 

5080 REPERT : GETRí: ■ UHT ILRT-O " " 

5090 I FFlT = " I " Tf-IEHGOTO30 
5100 IFR4:="H"THEH EHD 
5110 IFRTO" I" RHD R:Í <:>"H" THEH 5080 


O 













EGYESÜLET 




o 

Q 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 

o 


10 

15 

20 

30 

40 

50 

60 


il-l:c:l-=l 


b3=2; cZ=7: b2=2: c:2==7b 
key 1 , •'run" + c;hr-l; < 13) 
rém***** * «■ *■ * * * *■ *■ * ií- * *■ *:■ * * 
rém* . * 

rém* fgv. ábrázol as rl: k 
rém* , * 

rém******************** 

70 print."3*1'' 

80 graphicO,!' 

90 pr intchr t (14)',chrí <9) 

100 color4,2,7 
110 color0,2,7 
color1,3,1 
1 isti0000-10003 
colorl,1,1 
print"»*»il 
print"li*<l>Henu 

pokB2021 ,24; pol!e.202V2,9; pDke2023,ö; pake2024,1'? 
180 prinf'SEll - F(ÜV. 3at 1 rasll-j" 

190 print"(a2 - FBV. >'4Abratl:::ol as" 
f4irinterSi" 
tgv fSi ntegr al íí" 

Ügraphi cit" 


120 
130 
140 
150 
160 
170 


200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

370 

380 

390 

40Ci 

410 

420 

421 
425 
430 
450 
460 
470 
400 
490 
500 


pr i nt "ETS 
pr int "184 
print"Et5 


poke2023,20:poke2024,39 
print"*t6 - fgv fater foqataSi" 
print"I87 - FBV, .ibO forgatasSi" 
prinf'BB -- ragrílsí i ka fatorleseSi" 
prinf'GF? - .•Iketíi ígv .ibhrafiJ" 
prinf'El* - fgv Síkeresesetí" 
rém * * * * * * * * * * * * * * * * * * * * *■* *■ * * * *■ 
getkeyf f 

c o 1 or 1 , b 1 , c 1: c o 1 o r 0 , b 2, c 2’: c o T ni- 4 , 




tf-f:= 
f f ■$- 
tft= 
f f í= 


" 1 "then4840 
"2"thBn 520 
"3"then 1320 
"4"ther. 1570 
!0 


O 

o 

o 


Tisztelt 

Szerkesztőség 


Egy ötlet alapján készítettem 
egy függvényábrázoló progra¬ 
mot, amely más Jó tulajdonsá¬ 
gokkal is rendelkezik. Mi iskolán 
belül is széles körben használjuk. 
Kérem Önöket, ha úgy látják, 
hogy mások S7.ámára is használ¬ 
ható, közöljék le. 

Ez a program BASIC nyelven 
íródott PLUS/4-rc, így ebből is 
lehet tanulni. Persze nekünk is 
van C-64-re gépi kódú progra¬ 
munk. A kettő Jól kiegészíti egy¬ 
mást. A program a lemezen 40 
blokkot foglal el. 

Rácz Tibor 


if 
if 
if 
i f 

if ff#="5"then4: 
gDtD4,60 
graphicl,0 

char1,33,0,"space ! “ , 1 
gBtkey pp-t 
if ppf=" "then 10 
gato400 

if ffí="6"th(?n 1920 
if ffí="7"thf?n 2630 
if f f ■4í="8“then graphi cl 1 s gotDAO 
if ff:t»=:"9"then 3390 
i f f f f - " t h e n ■'i 180 

510 gotoSOO 

520 rém fugvenyek rajzolása 
530 rém azlOOOO-es sorban a fgv. 

540 gosub10000 
550 rém hibakezelés 
560 trapl240 
570 print‘‘3S1" 

580 pr i ntc.hr :í < 147) 

590 1ist10000-10001 

600 pirint" Függvény ábrázol asa" 

620 printrprint 

630 pr i nt "Fi gyei em ! 0 képernyő néhány másodpercre f#CJ:l el sötétül I nlHü 
640 print:print 

650 print" Az ti'y.' ma>!Sllmalis ertekes " 

660 qw=l; gosub2470 

670 xm=h2 

6B0 >!k=(-l)*xm 

690 print:print"Sfai :ia vagy inKiria léptékű legyen 2" 

700 getkeyl4 

710 if 14=2 then 740 

720 if 14=1 then ym=h2*2/3. 2: pr i nt: pr i nt "íí' y ' ma>;, 

730 goto700 

740 print:print" Az fl'y' atas. maxöimalis értéké:" 


íi- " ; vm: goto 770 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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o 

750 

760 

o 

770 

780 


790 

0 

SOO 


810 

o 

820 

830 


840 

o 

850 

860 


870 

o 

880 


B90 

o 

900 


910 

o 

920 

930 


940 

o 

950 


960 

o 

970 

980 


990 
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o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


1000 
1010 
1020 
1030 
1040 
1030 
1OÓO 
1070 

loao 

1090 
1100 
11 to 
1120 
1130 
1 140 
1 130 
l 160 
1170 
1 IflO 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
12B0 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1300 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 


qv)=2: gDsub2470 
ym”h2 
gDsub2280 
rém a kép ki 

poke652a6,peek(65206)and239 
rém a ko. lathatatlan rajtolása 
gráphic1,1 

d r a w1,0,100 t o 319,100 
draw 1,160,0 ta 160,199 
•fór z=0 tD319 stepl6 
draw1,2,90 t az ,102 
nextz 

drawl,160,0 tol5B,B to 162,atol60,0 
painti,159,7 

drawl,320,t00tp312,90to312, 

102to32!íi, 100 
paintl,313,99 
•far. 2~199tD '0 stop--10 
d r aw 1,150, z t o 162 , 
nextz 

rpm'kep be 

poke 6520v6, peek (65206) or 16 
rein a grafikus kurror >!-0,y=-100--ra 
r<sm fgv. Eizamitasa 
X k = (-1) *>: ffl , 

fnr fi^'xk tb xm stop 2*:xm/'320 
r em at S7. ami t as 
x=f 

y=f na <x ) ; y-“100-y* (1 00/ym) 

X w=i * (160 / X m) ^-160 
i f f X k t h e n 1 o c a t e x w, y 
draw to xw,y 
nextf 

rém abra felirat 
ad==ö 

xr-t==stri: (>!m) 
aq“'l en (xr t) 
char1,30,11,"x" 
c h ar1,0,13,st r t(x k) 
charl , (40-ari) , 13, str k ( i nt, (xm) > 
char1,20,13,"0" ! 

char1, 21 ,1,"y" j 

c h ar 1 ,21,0 , b t r -t (y tn) ; 

c h ar 1 ,21 ,2 4 , s U r 'f < - (yrn) ) j 

cliar 1 , ,33,0, " spacr* ‘ " , 1 i 

rjOBub2;'00 I 

getkey a;k I 

grapt»ic.:0,l i 

qoto4'0 I 

end 

resume next 
rém 1 bs. fgv: 
rief fna(x)= cdb( x) 
rém 2 roi.fgv: . 
deffnh(x )=bí n(x) 
return 

if ffl:=:" ■■ then 520 
end 

rém rajs 
graphic1,0 

open 1,4,7: cmti 1: 1 i st 10001; pr i ntchrrt (14 1) 
d at a 169,127,133,172,1 Í.9,4,133,174,169,0 

1 0,2 
2,13 


O 


o 


A program használatának rövid leírása 

Ez a program a beírt luggvények 


2. integrál terület számítása, 

3. integrál térfogat számítása, 

4. függvény elhelyezkedésének keresése, 

5. több függvény ábrázolása egy képen, 

6. kinyomtatása printeren, 

7. elforgatása megadott szöggel. 

Részletes leírás 

1. A kívánt függvényt az átíróval beírjuk a programunkba. 
A lüggvény ábrázolása a 2-es számú gombbal történik, amelynél 
bekéri az ,,x” tengely látható szélességét, ezután pedig megkérdi 
a léptékezés fajtáját (az egy lépték az automatikusan alkalmazko¬ 
dik az ,,x’-hez, a két léptékezésnél pedig rákérdez az ,,y” szélső 
látható értékére). 

Ezt követően a számítógép a kép elsötétítése után megrajzol¬ 
ja a koordináta rendszert, majd visszaadva a képet megkezdi a 
függvény ábrázolását. Ahol nincs értelme a számításnak, ott ki¬ 
hagyja a hibaüzenetet és tovább rajzol. Az egyenes áthúzások je¬ 
lenthetik a külső területről érkező pont ö.s.szekötést vagy a pozitív 
végtelenből a negatív végtelenbe való átugrást is (az egyes függ¬ 
vény mellett). 

2. A 4-cs gombbal indítjuk az integrálszámítást, amellyel 
a gép a SIMPSÖN-formula szerint végez el. Kiírja az eredményt 
a képernyő alsó részére és további billentyű lenyomására felette 
megjeleníti a függvény képét (a gyors számolásnál a mérősza¬ 
kasz hossza: 0,01). Ha pontosabbieredményt szeretnénk, akkor 
a mérőszakasz hosszát 0,001 vagy ennél kisebbre kell megválasz¬ 
tani. (Ennek sajnos a BASIC lassú.sága hátrányára válik.) 


O 


o 


data201,25 d, : 


133 1"/í , 3L* i V2I 

169,13,32,2(0,255,169,3,32,210,255,t69!192 ^t 33^2,169,3o’133 
clata3,169,0,133,4,169,32,133,5,169,23,133,í.:i, 169,7,133,6,169,40, 133.7 
datal64,6,192,7,240,20,162,7,177,2,10,126,51,3,202,16,249,200,192,9,208 
data240,165,6,240,18,160,0,162,7,177,4,10,126,51,3,202,16,249,200.196 
dat a6,208,240,162,7,189,51,3,56,106,1'34,234,164 ,.8,203,2,41,143,32,210 
data255,202,16,237,24,169,8,lOt,2,133,2,144,2,230,3,169,3,24,101,4,133 
ri at a4,14 4,2,230,5,190,7,209,165,169,13,32.210,255,199,8,200,7,169,3,133 
dat.a6,76,94 , av>, 16,18,169,1 1 („i, at,t;í, 1 o'í' , 1 , 32,21 o , .255,32,2ef4,2)55,169 

datal27,76,195,255,199,6-, 48,3,76,94,23,165,2,133,4,165,3,133,5,56,165 
data2,233,64,133,2,165,3,233,1 , 133,3,76,90,2:3 
Bu=0:reetncB 


O 


O 


O 


O 


O 
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ÍA/0. 

(■or i=592:B t.o 6143: read aipn 

o 

:iziao 

i f Bu< >23100 then print. "hiba 

1470 

sys5920 


1500 

graphicO,1 

o 

tSlO 

■fór ii-'*! 'to 30 


1520 

char,10,20,"rajzolas befejez 

o 

1530 

■forBtl=l to 20;ne?>!t 

1540 

char,10,20," 


1550 

riBxti i 

o 

1560 

gatoAO 

1570 

rom integrál 

o 

1580 

print"33" 

1590 

gosub10000 


1600 

i n=0 

o 

1610 

pr i nt "isi" ; pr i nt"lifc(EV»r. i nteqr. 
hoBsz a ■■ X 1 ' , ' M2: " ; 


1620 

input a,b 

o 

1630 

rém integr.pontossága 


1640 

printiprint 


1650 

input“a mereoszakasz hossza 

0 

1660 

>•1=0: y2*=0; >3=^0 


1670 

■fór >:=(a-<-c) to(b-c)step (2^»-c 

o 

1680 

y2=y2^^fna (x > *4 

1670 

nextx 

o 

1700 

fór >!= (a^<-2^tto) to (b-2i^c.) stts 

1710 

y3=y3+2*f na <>:) 


1720 

nextx 

o 

1730 

in=(c*<tna(a) •♦■f na < b ) ■<■'/2+y 3) ) 

1740 

print "isi" 


1750 

fór q=l to 25:print!ne>!f 

o 

1760 

id=int(in+»5) 


1770 

1 i st 10001: pr i nt" I NTE(3RAI...TJA: 

o 

1780 

print "■3"a" rl-tonJ-b " :l-i g=ra" i n 

1790 

print"-íkb="; ici 


1800 

qosub2360 

o 

1810 

char,30,20,"tovább: " 


1820 

ehar,30,21,"< t-betu >" 

o 

1030 

qetkey pp4 

1840 

if pp-í="t" then 1860 


1350 

goto1830 

o 

1860 

char,30,20," " 


1870 

char,30,21," " 

o 

1880 

qraphic2,0 

1090 

qe^tkeyppf; 


1900 

if ppí--" " then run 

n 

1910 

goto1060 


1920 

rém integrál 


1930 

print 

o 

1940 

qosub10000 


1950 

i n=0 

o 

1960 

print "isi" 5 print "^kClaz i ntegr . 

1970 

input. a,b 


1980 

rém integr.pontossága 

o 

1990 

print!print 


2000 

input"a mereoBZakaEz hossza 


2010 

y1=0:v2=0;y3=0 

o 

2020 

f or >: = ( a-t-c ) t o' (b -c ) st ep ( 2*0 


2030 

Y 2=y 2 ■<■■ f n a ( y,) * 4 

o 

2040 

ne>i t>! 

2050 

fór x= <a-<-2^rc) to (b“2^Kc) ste 


2060 

y3=y3+2^Ktna (>:) 

o 

2070 

nextx 


2080 

i n = (c * (f n a (a) + f n a (b) + y 2 +yZ) > 


2090 

print "isi" 

o 

2100 

fór q=l to 25: pr i nt: nc'xt 


2110 

id=int (in^i-.5) 

o 

2120 

i t=in't2'»t:-: 

2130 

1 i st. 10001: print " IMTEBFiALTter 


2140 

pr i nt""a"a" :l-tol "a'^b " :1 -i g=rá" i t 

o 

2150 

print ":t1;b=" ; i d 


2160 

goBub23v60 


iiu=5i.H n: n0>:ti 

';su;"23100 helyett !":stop 


Í2*c) 


■J" 


hCJEi! 


ci 'It. iH * 


(7*c) 


O 

O 


3. Az integráltérfogat számítását a 6-os gombbal indítjuk. 
A gép automatikusan elvégzi a terület számítását és ebből a térfo¬ 
gat számítását. Majd ugyanúgy mint az előzőekben kiírja a kép 
alsó részére az eredményt. 

4. A függvény elhelyezkedésének a keresésénél egy meg¬ 
adott ,,x" szélsőérték (-(- és—) között kikeresi a legnagyobb szd- 
mított értéket és a függőleges tengely léptékezcsct ehhez iga¬ 
zítja abszolút értékben. Ezáltal egy ismeretlen függvényt köny- 
nyebb megtalálni. Ezután már mi határozzuk meg, hogy a lépték 
melyik részén módosítunk a metszéspontok könnyebb meghatá¬ 
rozása végett. 

5. Lehetőségünk van két vagy több függvény egy képen való 
ábrázolására is (csak arra kell vigyázni, hogy a léptékezés mind¬ 
két függvény esetében egyforma legyen). 

6. A grafikus képernyő tartalmát printeren ki tudjuk 
nyomtatni. 

7. Továbbá lehetőségünk van az eredeti függvényt input 
szöggel az ,,x” tengelytől számítva az óramutató járásával ellen¬ 
tétes irányba elforgatni. 

A program továbbá lehetőséget ad arra is, hogy megtekint¬ 
sük a grafikus képernyő tartalmát vagy töröljük ezt. 

A felhasználásra a továbbiakban nézzünk meg egy pár 
példát: 

— függvény analízis, illetve számítások ellenőrzé.sc, 

— oktatásban való felhasználása (pl.: a fgv. módosítás hatá¬ 
sa az fgv. képére), 

— számítógépen a függvényképek oktatása. 
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o 

2170 

char,30,20,"tovább:" 

O 


2180 

char,30,21,"< t~betu>" 


o 

2190 

getkey ppí: 

O 

2200 

if pp'í-="t" then 1860 



2210 

gotDl330 

O 

o 

2220 

char,30,20," “ 


Q 


Q 


O 


2230 
2240 
2250 
2260 
O 2270 
2280 
2290 
2300 
2310 
2320 

4-\ ~r “»• 

2340 
2350 
2360 
2370 
2300 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 


O 


O 


O 


O 


O 


O 


O 


O 


o 


o 


2500 

2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 ■ 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2360 


I -í; " 

; ynto2510 


char,30,21," 
graphic2,0 
getkeyppJ; 

H- ppl:=" “ then run 
gotol 860 
rém hang 1 
vq13 

■fór i==l to 4 
5ound2,850,2 
soundl,800,2 
•f or 11 = 1 to50: ne;: t 
ne:-: ti 
return 
rém hang 2 
vc:ri4 

•fór th-1 to 2 
fór llí=l to 7 
Bound1,206,1 
sound3,1020,2 
■forty==l to 3.0;ne>tt 
nraxtlk 

f or t y= 1 t o 100: ne>; t 
ney.tth 
return 
rém adatbe 
h2-$="" 

i qw= 1 thenchar 1,25 
" : ctiar 1,25, 13,' 
h2í="":char1,30,17," 

" :char1,30,17," " 
getkey hlü 

i+ hl-í“chrít < 13) then :í: 570 
if hl$=chr-r (20) then 2480 
h =h 2$' -t-h 1 : p r i n t h 1 ; 
goto 2590 
qoto2510 

print:h2~val (h2'í) 
return 
remhanq3 
vol7 

SDundl,900,3 
gotD2560 

rém a2920--eB sorban a ■fgv 
print"30" 
goBUb10000 
rém hibakezelés 
trap5350 
printchrí(147) 

1 isti0000-10001 

print" Függvény ábrázol asa 

print"--- 

print!print 

print"Figyelem ! A képernyő néhány 
print:print 

printí' Az H'x' maxtíimalis értéké:" 

qw=l: gosub2470 

>:m=h2 

>; k= (-1) *>;m 

print:print"rsai ilű vagy .'íarídíl léptékű legyen 
getkeyl4 

if 14=2 then 2840 

if 14=1 then ym=h2*2/3. 2: pr i nt: pr i nt "ÍS'' 
gato2a00 

print;print“ Az >i'y' abs. maxdimalis értéké: 

qw=2: goBub2470 

ym=h2 


O 


O 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


2870 print:print"kerem az íí^-tlfatí" 

2880 input "el forgatási szöget ffok 1mf 
2390 ml = (;■:/130)-K-m-i- 
2900 gosub22B0 
2910 r-em a kép ki 

2920 pokB652a6,peek(65286)and239 

2930 rém a ko. lathatatlan rajzolasa 

2940 graphicl,0 

2950 drawl,0,100 to 319,100 

2960 draw 1,160,0 to 160,199 

2970 fór Z'-síO to319 stepl6 

2980 draw1,z,98 toz,102 

2990 nextz 

3000 drawl,160,0 tDl58,B to 162,8tol60,0 
3010 c.aii'itl , 159,7 

3020 drawl,320,100to312,98to3l2,102tD32ö , 

3030 p ain 11,313,99 

3040 fór z = 199'to 0 s.t,ep-10 

305i0 drawl,15a,z 'to 162,'z 

3060 nextz 

3070 rern kép be 

3080 poke 653286,peek; (65296) nr 16 

3090 rém a grafikus kurzor x=0,y=100.ra 

3100 rém fgv. Bzamitasa 
3110 xk=(--l)-»xm 

3120 fór f=xk tO' xm stop 2'«xm/320 
3130 rém c<tszamit.as 
3140 x=f 
3150 y=fna(x) 

3160 x4=X'*'Cob (ml ) -yK-Ei n (ml ) 

3170 >: 2=>: 4 *■ (160/)tm) -i-160 
3180 y4==x>si n (ml ) +y*coB (ml ) 

3190 y2- i 00-y4 K- (100/ym) 

3200 if f=xl-; then lorat(;x2,y2 
3210 draw to x2,y2 
3220 nextf 

3230 rém abra felirat 
3240 xrí=strl:(x) 

3250 aq'=len (xr:!0 
3260 charl ,38, 11 ,’'x" 

3270 charl , 0,13, str-t (x k ) 

3280 charl , (40-aq) , 13 , Btr-.t (i nt (x m) ) 

3290 char1,20,13,"0" 

3300 char1,21,1,"y" 


másodpercre 3^:1 t?l sötétül I nlöü 


max . ii = ‘‘; ym: gotn2870 


O 

O 

O 

O 

O 

O 

O 

o 
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3310 

charl,21,0,str$(ym) 



3320 

char 1,21,24, str í < vm) ) 


o 

3330 

char 1 ,33,0 , " spac.e f " , 1 

O 


3340 

gDsub2230 


o 

33ti0 

resume! next 

n 


3360 

qetkey a'k 



3370 

graphicO,! 


0 

33B0 

gal:o40 

0 


3390 

rém több -fqv 



3400 

prinf'SPf" 


(J 

3410 

rom -fuqvenyolí rajzolaja 

O 


3420 

roin a 10000 -es siorban a tqv. 


0 

3430 

qosi.ib 10000 

o 


3440 

r ti i b a k ez e 1 es 



3450 

t r'ap4 140 


0 

3460 

pri ntchrt' 147) : pr L nt "rs" 

o 


3470 

1isti0000-10003 



3480 

print"d?)z 1 es 2 -fqv ábrázol asa egymásután I" 


o 

3490 

print"...—...-....." 

o 


3500 

pr int 


o 

3510 

print"Figyel{=?m A kejpornyo néhány másodpercre rí3:l el sötétül 1 lOrld " 

o 


3520 

print" Az íf'x' max di mai i s értéké:" 



3530 

q w = 1: q o B u b 2470 


o 

3540 

>!m==h2 

o 


3550 

xk^ ( —1) *>:m 


o 

3560 

pr int: pr i nt "srai vagy fiira? rtü léptékű legyen 2" 

o 


3570 

qetkeyl4 



3580 

it 14== 2 then 3610 


0 

3590 

i-f 14=1 then y(n=h2«2/3.2: pr i nt: pr i nt "íi'y ' ma>:. Ü-" ; ym; goto 3630 

o 


3600 

qoto3620 


o 

3610 

print:print" Az tl'v' abs. maxüimalis ertetce: " 


3620 

qw==2; q osub 2470 

o 


3630 

ym=h2 


o 

3640 

qof=;ub2200 

o 


3650 

rém a kép ki 



3660 

poke65236,peek(65206)and239 


o 

3670 

rém a ko. láthatatlan rajzolása 

o 


3600 

qrap)hi(:l,0 


o 

3690 

drawl,0,100 to 319,100 

o 


3700 

draw 1,160,0 to 160,199 



3710 

•fór z=0 tn319 stop 16 


o 

3720 

drawl , z , 98 t. a z , 10 2 

o 


3730 

nextz 


o 

3740 

drawl,160,0 tDl5ű,0 to 162,Qtol60,0 

D 


3750 

paintl , 15(9,7 



37íí0 

drawl ,320,100to312,93to312,102to32C>, 100 


o 

3770 

Pcaintl ,313,99 

o 


3730 

tor z=199to 0 step-lO 



3790 

flr aw 1,150,7 t o 162 , z. 


o 

3B00 

/39 

o 


3310 

nextz 


0 

3820 

rém kép be 

o 


3030 

poke 65286,peek(65236) or 16 



3840 

■forjk=l to 2 


o 

3850 

rém a grafikus tturror !!=i>,y==100-ra 

o 


3060 

rém fqv. szamitasa 


o 

3870 

xk=(--l)*>;m 

n 


3300 

fór f==>!k- to >:m step 2*xm/320 



3890 

rém átszámítás 


o 

3900 

>i=f 

o 


3910 

if ik=2 then 3940 



3920 

y=fna(x)í y=100-y*(100/ym) 



3930 

qDto3950 ' 

o 


3940 

y==f nb <>:) : y=100-y*- < 100/ym) 


o 

3950 

>!w==f * (160/xm) h-160 

o 


3960 

if f==>!k then locate )!w,,y 



3970 

draw to >!w,y 


o 

3900 

nev.tf ' 

o 


3990 

nextjk 


r\ 

4000 

rém abra felirat 



4010 rac:|=0 

o 


4020 

>!r’f=str'l> ixm) 


o 

4030 

aq==l en (>:r;t) 

o 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 

o 


4040 char i ,3B, 11, 

4050 charl ,0,13,str*<Mt;) 

4060 char 1, (40-aq) , 13,Etrf <int (>:m) > 

4070 char 1,20,13,‘'O" 

4080 char 1,21,1 

4090 char1,21,0,strí{ym) 

4100 char1,21,24,strí<-^ym>) 

4110 char1,33,0,"spacp !",1 
4120 qasub22B0 
4130 getkcjy aí 
4,140 resumf? next 
4150 graphicO,! 

4160 qotD40 
4170 end 
41B0 prinfSmíl" 

4190 rém -fugvényéi: ra jsolasa 

4200 rém azlOOOO-es sorban a 

4210 gosub10000 

4220 re-m hibakezelés 

4230 trap4300 

4240 printchrtf147):print" 

4250 print"- 

4260 print"Figyeiem ; A kepérnyo néhány 
4270 print;print 

4280 print" Az Ifx' maxlhmalis értéké:" 

4290 qw=l: go5ub2470 

4300 xm=h2 

4310 >:k=(--l)*xiit 

4320 rém a l<ep ki 

4325 poke65286Jpeek <65286)and239 

4330 rém a ko. lathatatlan rajzolása 

4340 graphic1,1 

4350 drawl,0,100 to 319,100 

4360 draw 1,160,0 to 160,199 

4370 tor z=0 to319 Etepl6 

4380 drawl,z,98 toz,102 

4390 ne>ítz 

4400 drawl,160,0 tDl58,8 to 162,8tDl60,0 
4410 paintl,159,7 

4420 drawl ,320,100tD312,90to312,102to320 

4430 paintl,313,99 

4440 far z=»199to 0 step-lO 

4450 drawl,158,2 to 162,2 

4460 nextz 

4470 rém az y max. szamitasa 
4480 tar -f^xk to xm ttep 2*xm/320 
4490 x=-f 

4500 y=ahs(fnaíx)) 

4510 i f y>'/m then ym=y 
4520 nextt 

4530“rém az y max. szamitasa 
4540 fór f=>:k to xm step 2'>i'xm732u 
4550 x = f/ia0>!3. 14 
4560 '/=abs (f na (x ) ) 

4570 if y>yd then yri-'/ 

4580 nextf 
4590 rém kép be 

4595Í poke 65286 ,peek (65286) or 16 
4600 rém a grafikus kurzor x,y 
4610 rém fgv. szamitasa 
4 620 X k = (-• 1 ) •í-x m 

4630 fór f --X k to xm step 2*xm/320 
4640 rém átszámítás 
4650 x=f 

4660 y=fna<x): y=100--y► (100/ym> 

4 670 X w™ f *(160/X m) + 160 

4680 if f=xk then locate >:w,y 

4690 draw to xw,'/ 

4700 nextf 

4710 rém atara felirat 
4720 charl,3D,ll,“x" 

4730 char 1 ^0,13,str:t (xk.) 


Függvény ábrázolasa" 
masoripercre !Í3:1 el sötétül ‘ iiitia " 


, 100 


4740 char 1,35,13,str:í<xm) 
4750 char1,20,13,"ü" 

4760 char1,21,1,"y" 

4770 charl ,21,0,sti-t(ym) 

4780 char1,21,24,str$(-(ym)) 
4790 char1,33,0,"space !",1 
4800 resume next 
4810 getkey a$ 

4820 graphicO,! 

4330 goto 10 ' 

4835 rém a fq'/ 

4837 prinfSeW" 

4840 rém atiras 

4850 pr i nt "33" : pr i nt"41“ 

4860 1ist10000-10100 
4870 print;prínt:print"ha at 
lopj ki a sorbol '" 

4880 print:print"ha kész,ind 
5000 end 
6200 rbturn 

10000 rém * 1. fgv ** 

10001 def f na (x )=■•' 

10002 rém * 2. fgv *# 

10003 deffnb<x)= 

10100 return 


O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


Írtad, 
i t sd u 


returnnal 
jra i:lhil" 


ready. 
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10001 defina (x) = sin (x) + tan (x) — cos (x) az ábrázolandó függvény 



a keresés üzemben meghatározza a kb. 
helyzetét és megrajzolja kettős lépték¬ 
ben. Az ,,y" irányban megadja a sza¬ 
kaszra számolt szélsőértékét. így már 
köiii'vc'hh a mi általunk választott ,,y" 
érlnkkt;! iáközeliteni. Ha egy léptéket 
haszii.ilnnk, imdig megkapjuk a függ¬ 
vény valt'S kél lét. 


10001, deffna (x) = sin (xl -i- tan (xl - cos (x) 



A kettős léptékezés előnye: 

- jobb átláthatóság, 

— a tengelyekkel való metszések 
könnyebb meghatározása. 

Ez már kettős léptékezési 
Használati indoklás: a függvény túl kö¬ 
zel fielyezkedett el az ,,x'' tengelyhez. 


10001 deffna (x) = sin (x) -t lan Ix) - cos (xl 



Itt mindkét léptékei megváltoztattuk, 
így még könnyebb a metszéspont meg¬ 
határozása. 
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DIGITÁLIS KÉMCSŐ 


Nem kell biokémikusnak vagy Nagy Varázslónak lenni ah¬ 
hoz, hogy örömöt leljen valaki a sejtautomata (SA) programok¬ 
ban. Néhány viszonylag egy.szcrű SA kóddal — mint az itt hemu¬ 
tatott Amiga Basic listák — hárki előállíthatja valamely termé¬ 
szeti jelenség fejlődési modelljét. 

Az Amiga alkalmazá.sok közt az egyik legbájo.sabb, hogy 
.sejtautomata (SA) programokkal mesterséges életek különböző 
formáit lehet előállítani. Néhányan észrevették, hogy ezek a 
programok a lehetőségek végtelen tárházát nyitják meg. 

Egy sejtautomata programmal egyszerű vagy bonyolultabb 
SA kód.sorokat lehet biológiai organizmu.sok (szervezetek) vagy 
élő rendszerek reprezentásaivá átalakítani (transzformálni). 
Utánozható a madarak, hangyák, méhek vagy haktériumok ván¬ 
dorlása, Káosz-algoritmusok bevoná.sával modellezhetők időjá¬ 
rási alakzatok, a népesség szaporulata vagy fertőzések terjedése. 
Kapesolat alakítható ki még az ideghálózatok és a mesterséges 
intelligencia felé is. Elég megszerkeszteni olyan SA programo¬ 
kat, amelyek ideghálózatokat hoznak létre és kapesolnak ös.sze, 
és ezek már maguktól tanulásra képesek. 

Hogy segítsük az indulást, bemutatunk kél egyszerű Amiga 
Basic' programot, amelyek betekintést engednek azokba a prog- 
ramozási eljárásokba, amelyek rejtve maradnak egy bonyolul¬ 
tabb, kompilált vagy teljesen kész alkalmazásban. 

A kereskedelemben természetesen beszerezhetők SA prog¬ 
ramok — pl. a MegameM CellPro SA ,,művészeti” és animációs 
programja. (Az. árusító helyek címe megtalálható a Gyártók és 
Kereskedők címlistáján.) 

Rend a káoszból 

A sejtautomata programok különböző fejlettségi szintűek 
lehetnek. Léteznek egyszerű és kiemelkedően komplex változa¬ 
tok is. Általában a SA programok néhány egyszerű szabályból 
állnak. Az összetett alakzatok nincsenek beírva a progiamba, 
hanem maguktól fejlődnek. Amikor elindítjuk a számítógépet, 
hogy ezt a néhány szabályt gyorsan ismételje, a program megle¬ 
pő viselkedést mutat: olyan ábrák keletkeznek, amelyekkel az 
élő szervezetek és a mesterséges intelligeneia tanulmányozható, 
modellezhető. 

Az I. lista a szöveg képernyőt használva generál egy egysze¬ 
rű sejtautomatát. A program gyorsan megtölti a képernyőt két 
szintű karakterekkel, aztán elkezdi felléié görgetni. Minden sor, 
ami a képernyő alján megjelenik egy új generációt képvisel. A 
c] gomb megnyomásával kiléphetünk a programból, míg minden 
más billentyű megnyomása a szabályok véletlenszerű változá.sát 
okozza, annak megfélelően, hogy épp melyik hoz létre új gene¬ 
rációt. 

A 2. lista egy kicsit ös.szetcttebb. Ez egy önszervező prog¬ 
ram, ami a Belousov—Zsabotyinszkij féle reakcióra jellemző 
fejlődő formákat, struktúrákat mutathat, fiz az. az egyszerű. 30 
évvel ezelőtt Oroszországban elvégzett kémiai kísérlet, ami az 
önszerveződő rendszerek felfedezéséhez és kutatásához, vezetett. 

Ebben a kísérletben bromát ionok erősen savas oldatát te¬ 
szik egy lapos tányérba, amelyben spontán vegyi aktivitási gó- 
eok keletkeznek. Mindegyik ilyen góc koncentrikus körökből, 
esetenként spiráli.sokból álló, kifelé terjedő ábrát hoz létre. 
Ahogy ezek az ábrák növekszenek, a szomszédos ábrák összeüt¬ 


köznek. Hamarosan az egész lélület egyedi, rajzolatot mutat. 
Ezután az egé.sz ábra kezd elmosódni, míg végül eltűnik, ahogy 
a másodlagos reakciók gátolják az elsődlegeseket. 

A kísérlet e látható hatása 30 évvel ezelőtt c.supán egy meg¬ 
lepő termé.szeti jelenség volt. Mára az önszerveződő reakciók 
vizsgálata, a kémiai alapokon túl, bevonult olyan tudományok¬ 
ba, minta fizika, kozmológia vagy biológia. (Néhány szakember 
úgy véli, hogy az önszervező kémiai reakciók az élet kialakulá¬ 
sának egy állomását jelentik.) 

Azonban nem mindenkinek van kéznél savas bromát ,,leve- 
■se”. Emiatt adjuk közre a 2. listát, amellyel bárki tanulmányoz¬ 
hatja ezt a jelenséget az Amigán. Három induló ábrából lehet 
választani: — spirál, újjászülető és diffúzió. Ez a program a .szö¬ 
vegképernyő I6X40-CS részét ha.sználja megjelenítésre és min¬ 
den karakter cgy-cgy sejtet tartalmaz: — aktív, fogékony és pihe¬ 
nő. A program minden karaktert az állapotának megfélelően szí¬ 
nez. ki: a piros az aktív, a fehér a fogékony, míg a lila a pihenő 
állapotot jelöli. 

Ennek a sejtautomatának a szabályai egyszerűek. Egy sejt 
aktivitá.sa c.sak akkor terjed át a szomszédos .sejtre, ha az fogé¬ 
kony állapotban van. Egy sejt fogékony állapotba csak pihenő 
állapotból juthat. Ez azt jelenti, hogy egy .sejt aktív állapotból 
fogékony állapotba történő átmenetét a piros-lila-fehér színsor 
mutatja. 

A program kél adatsort állít elő — egy ,,új” (newen) és egy 
..régi” (olden) — amelyek a képernyőn lévő minden egyes sejt 
jelenlegi, és az azt megelőző állapotát tartalmazzák. A sorok 
adatai alapján frissíti és módosítja a képernyőt. A program kike¬ 
resi az egyes sejteket a ,,régi” adatsorból, és ha egy pihenő .sejtet 
talál, fogékonyra változtatja az. ,,új” adatsorban. Ha a program 
egy aktív sejtet talál, akkor megvizsgálja a szom.szédos sejteket, 
hogy az aktivitás (pirosság) átterjedhet-e valamelyikre. Ha igen, 
akkor az összes szomszédos fogékony sejt állapotát aktívra vál¬ 
toztatja az. ,,új” adatsorban. 

A következő periódusban az aktív sejteket pihenő állpotúra 
változtatja az. ,,új” adatsorban. Miután végigvizsgálta a teljes 
,,régi” adatsort, a program képernyőre viszi az ,,új” adatsort, 
és egy idejűleg bemásolja az, ,új”at a,,régi” be. Amikor a képer¬ 
nyőn elkészült a kép, a program megismétli az egész folyamatot. 

Annak ellenére, hogy ezek a szabályok egy.szcrűek, néhány 
generáció után nagyon ös.szetett ábrák is kialakulhatnak. Mivel 
az egész program Amiga Basic-ben íródott, bár a folyamat lassú, 
a .számítógép kb. 10 má.sodpcrcenként frissíti a kijelzést a képer¬ 
nyőn. Ha kompilálva futtatjuk a programot, a kijelzés kiterjeszt¬ 
hető a teljes képernyőre. Azért ha.sználtam a 16x40-es mátrixot 
a képernyőn, hogy felgyorsítsam a programot. Gépi kódban dol¬ 
gozva a program elég gyorsan fut ahhoz, hogy a szövegkarakte¬ 
rek helyett az egyes pixeleket használjuk. 


Folytassuk saját magunk 

A programot három kezdő ún. csíra ábrával írtam, amelyek 
ös.szetettebb geometriává fejlődnek. Ezeket tekintsük kiindulás¬ 
nak, mintsem korlátozásnak. Ezek az ábrák szabadon megvál¬ 
toztathatók. Némi játék után a program meglepően érdekessé 
válik. 


o 
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A program a következő számokkal kódolja az egyes állapo¬ 
tokat az adatsorban: 

1 = fehér = fogékony, érzékeny 

2 = lila = pihenő 

3 = piros = aktív 

Használjuk ezeket a számokat a szubrutinokban a kezdő áb¬ 
rák megváltoztatására. Például, bárki előállíthat új induló ábrát 


a,,Spirál” alprogram adatsorában lévő számok megváltoztatásá¬ 
val. Annak érdekében, hogy tiszta képernyővel induljunk, a 
program 1-c.sckkel tölti fel mindkét adatsort, mielőtt induló ábrá¬ 
ba tenné. Már csak az aktív és pihenő sejtek induló helyét kell 
meghatározni. 

- AM - 


1. Lista. Egyszerű sejtautomata 


'Simple Celluar Automation in Amiga Basic 

PRINT CHR$(10): 


a$ - INKEYS 

PALETTE 0,0,0,0:PALETTE 1,1,1,1:PALETTE 2,0,0,0 

IF a$ ^ "q" THEN COLOR 1,0:END 

FÓR i = 1 TO 8:READ n: code(i) = n:NEXT 

IF a$ ö"" THEN codechange 

DATA 0,1,1,1,1,0,0,0 

GOTO beginning 

DIM olden(77),newen(77) 

codechange: 

GOTO start 

cg = INT (RNDII) " 8) + 1 

begining: 

de = INT(RND(2) * 21 

FÓR j = 1 TO 76 

codeleg) = de 

rule = (4 * oldenlj - 11 + 2 * oldenljl + oldenlj + 1)1+1 

GOTO beginning 

newen(j) = code(rule) 

start: 

NEXT 

RANDOMIZE 

FÓR j = 1 TO 76 

FÓR i = 1 TO 76 

COLOR (2-newen(j)l,0 

olden(i) = INT(RND(2) * 2) 

PRINT CHR$(3D; 

NEXT 

oldenlj) = newenlj) 

CLS 

NEXT 

GOTO beginning 


2. Lista. Önszervező sejtautomata 

RÉM Selí-Oraganlzing Cellular Automation Program 

DIM olden(721),newen(721l 
fig = 1: GOSUB Setup 

CLS'.PRINT CHR$(13), " Use Mouse to make selection ! 
MENÜ 1,0,1 "Selection" 

MENÜ 1,1,1, "Spirál" 

MENÜ 1,2,1,"Regeneration" 

MENÜ 1,3,1, "Dilfusion' 

MENÜ 1,4,1, "Exit" 

ON MENÜ GOSUB selection 

MENÜ ON 

WHILE fig 

WEND 

GOTO display 

start: 

FÓR X = 40 TO 680 

IF oldenixl = 3 TFIEN changearound 

IFoldenIxl = 2 TFIEN nowen(x) = 1 

cscan 

NEXT 

GOTO display 
changearound: 
newen(x) = 2 

IF olden(x4l = 1 THEN newen(x-l) = 3 
IF olden(x+1l = 1 TFIEN newen(x+1) = 3 
IF olden(x + 40) = 1 THEN newen(x+40l = 3 
IF olden(x + 41) = 1 THEN newen(x + 41) = 3 
IF olden(x + 39) = 1 THEN newen(x + 39) = 3 
IF olden(x-40) = 1 THEN newen(x-40) = 3 
IF olden(x-39) = 1 THEN newen(x-39) = 3 
IF olden(x-41l = 1 THEN newen(x-41) = 3 
GOTO cscan 


display: 

LOCATE 4,1 

FÓR y = 1 TO 16: PRINT TAB(19): 

FÓR X = 1 T0 40: COLOR newen(x+(y"40)),0 
otden(x +(y*401) = newen(x+(y*40)} 

PRINT CHR$(31);JMEXT 
PRINT CHR$(13);:NEXT 
GOTO start 

Setup: 

PALETTE 0,0,0,0 :PALETTE 1,1,1,1 

PALETTE 2,.8,0,.93 : PALETTE 3,1,.2,.27 

FÓR 1 = 0 TO 721:olden(i) = Lnewentil = TNEXTRETURN 

'Enter Patterns 

spirál: 'Spirál 

GOSUB Setup 

FÓR i = 336 TO 346:newen(i) = 3: NEXT 
newenl307) = 3 :newen(335) = 2 
FÓR i = 295 TO 306:newen(i) = 2:NEXT 
fig = 0:RETURN 
regen: 'Regenerál ion 

GOSUB Setup 

newen(380) = 3 :newen(381l = 3:newen(300) = 3 
newen(301) = 3;newen(339) = 3 ;newen(340) = 2 
fig = 0:RETURN 
difi: 'Diffusion 

GOSUB Setup 

newen{340) = 3: fig = 0: RETURN 
bye: 

MENÜ RÉSÉT 
END 

selection: 

ON MENÜID GOSUB spirál,regen,diff,bye 
RETURN 
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Tisztelt Szerkesztőség! 


Lemezen mellékelem két kis programomat azzal a szándék¬ 
kal, hogy lapjukban megjelentetni szíveskedjenek, ha arra mél¬ 
tónak ítélik. 

Túl sok szöveges magyarázatot talán egyik sem igényel, hi¬ 
szen a programok is nyújtanak útbaigazítá.st. 

A Dallamszcrkesztő DATA sorainak átírásával bármelyik 
kétszólamú dallam megszólaltatható, sőt a tempó is szabályozha¬ 
tó ízlés szerint. 

A Gr. karakterszerkesztő 8*12-es mérete elsősorban egy 
kottaszerkesztőhöz nyújthat nagy segít.séget, de tetszés szerint 
más rajz is készíthető vele. 

Kis programjaimat .szeretettel ajánlom C-PLUS/4 és CI6-os 
gépek ,,szerclme.seinek”. 

Tóth Antal 


o 

10 

PRINT"3';CHR*(14) 

O 

11 

PR INTTAB( 10)" »-2-S20LAMU- *' 


12 

PRINTTABt10)■C-DALLAMSZERKESZTO-*' 


o 

13 

PRINTTABt 10) ■»-PLUS/4- *’ 

O 


14 

PRINT;PRINT:PR1NT 



15 

PRINT*lEMUTATO ZENET V. ÚTMUTATÓT KÉR Z/U ?•;GETKEYV$ 

o 

o 

16 

IF V$=-Z‘THEN18 


17 

IF V$=‘U"THEN113:ELSE15 


o 

18 

PRINT“ rWüW:PRINTTAB(8)“TEMPOBEALLI TASPRINT;PR1NT 

o 

19 

PRINTTAB<8)‘-' 



20 

PRINTTABt 8)‘ALAPHELYZET:0 /M=60/■ 

o 

0 

21 

PRINTTAB<8)‘-’ 


22 

PRINTTAB(8)*M= 45. A' 



23 

PRINTTAB(8)‘M= 50. B" 

o 

0 

24 

PRINTTAB(8)"M= 55. C" 


25 

PRINTTAB<8)’M= 80. 1" 


o 

26 

PRINTTAB(8)"M=100. 2‘ 

0 


27 

PRINTTAB(8)"M=120. 3‘ 



28 

PR INT 

o 

0 

29 

PRINTTAB(8)‘M=METRUM /IDOMERTEK/ 


30 

GETKEYVS 


o 

31 

IFV$=•0"THENA=12:G0T038 

0 

32 

IFV$=“A■THENA=I8:G0T038 


33 

I F V$=•B’THENA=I6:G0T038 


0 

34 

1FV$="C■THENA=I 4 :G0T038 

o 


35 

I F V$=•I■THENA=10:G0T038 


0 

36 

IFV$="2“THENA= 8:G0T038 

o 

37 

IFV$=’3‘THENA= 6;G0T038:ELSE30 


38 

PRINTMüiaMJtíJERKEL FERENC-KOLCSEY FERENC;" 


o 

39 

PRINTTABt15)"HIMNUS2“ 

o 

40 

V0L8:N=57 


o 

41 

FÓR 1 = 1 TÓN 

o 

42 

READX$,Z$ 


43 

READYS.ZS 


o 

44 

IFX$="F0“THEN X=383 

o 

45 

IFXÍ=*G0“THEN X=453 


46 

IFX$="G0F"THENX=485 


o 

47 

IFX$=*A0"THEN X=516 

o 


48 

1FX$=“A0F"THENX=544 



49 

IFX$="H0"THEN X=571 

o 


50 

IFX$=“C1“THEN X=597 


51 

IFX$=“C1F"THENX=621 


o 

52 

IFX$="D1"THEN X=643 

o 


53 

IFX$="D1F'THENX=665 


0 

54 

lFX$="ErTHEN X=685 

0 

55 

IFX$="F1"THEN X=704 


56 

IFX$="F1F“THENX=722 


o 

57 

IFX$=“G1"THEN X=739 

o 


o 

58 

IFX$="G1F"THENX=755 

O 


59 

IFX$="ArTHEN X=770 


o 

60 

IFX$*"A1F*THENX=784 

O 


61 

IFX$=“H1"THEN X=798 


o 

62 

IFX$=*C2*THEN X=810 

O 

63 

IFX$="C2F"THENX=822 


64 

IFX$="D2"THEN X=834 


o 

65 

IFX$="D2F*THENX=844 

O 


66 

IFX$="E2*THEN X=854 


o 

67 

IFX$=*F2“THEN X=864 

o 

68 

1FX$="F2F"THENX=873 


69 

IFX$=“62"THEN X=88I 


o 

70 

IFX$="G2F"THENX=889 

o 

71 

RÉM 


72 

IFZ$="E"THEN Z=A»16 


o 

73 

IFZ$="PF“THENZ=Aíl2 

o 


74 

1FZ$="F"THEN Z=A»8 


o 

75 

IF2$=“PN"THEN Z=A«6 

o 

76 

1FZ$="N"THEN Z=A*4 


77 

IFZ$="PY"THEN Z=A»3 


o 

78 

IFZS=*Y‘THEN Z=At2 

o 


79 

IFZ$="T"THEN Z=A 


o 

80 

RÉM 

o 

81 

1FY$='F0"THEN Y=383 


82 

IFY$="G0“THEN Y=453 


o 

83 

1FY$="G0F"THENY=485 

o 


84 

IFYÍ="A0“TH£N Y=516 


o 

85 

1FY$=*A0F"THENY=544 

o 

86 

IFY$="H0“THEN Y=571 


87 

IFY$=*C1*THEN Y=597 


o 

88 

IFY$="C1F"THENY=621 

o 

89 

IFY$=‘01“THEN Y=643 


90 

IFY$=*D1F"THENY=665 


Ü 

91 

IFY$="E1"THEN Y=685 

o 


92 

IFY$=*F1"THEN Y=704 


o 

93 

IFY$=*F1F“THENY=722 

o 

94 

IFY$=“G1"THEN Y=739 


95 

IFY$="G1F"THENY=755 


o 

96 

IFY$=“A1“THEN Y=770 

o 


97 

1FY$="A1F"THENY=784 


o 

98 

IFY$=“H1"THEN Y=798 

o 

99 

IFY$=“C2"THEN Y=810 


100 

IFY$="C2F"THENY=822 


o 

101 

IFY$="D2*THEN Y=834 

o 

102 

IFY$=“D2F“THENY=844 


103 

IFY$=*E2“THEN Y=854 


o 

104 

IFY$="F2"THEN Y=864 

o 


105 

IFY$="F2F“THENY=873 


o 

106 

IFY*="G2*THEN Y=881 

o 

107 

IFY$="G2F“THENY=889 


108 

RÉM 


o 

109 

SOUNDl.X.Z 

o 


110 

S0UND2. Y,Z 



111 

NEXTI 


o 

112 

RÉM 

o 


113 

PRINT’T 


o 

114 

PRINTTABt10)"UTMUTATO“ 

o 

115 

PRINTTABt 10)“-• 


15 


O 


JUNIUS 



















0 ^ 


EGYESÜLET 



116 

0 

117 


118 


119 

o 

120 


121 

o 

122 

123 


124 

o 

125 


126 

o 

127 

128 


129 

o 

130 


131 


132 

o 

133 


134 

o 

135 


136 


137 

o 

138 


139 

0 

140 

141 


142 

o 

143 


144 

o 

145 

146 


147 

o 



X$; 


PRINT" 


AZ 1.SZÓLAM HANGJAINAK ABC-S NEVE" 

ES AZ OKTAVBEOSZTAS JELOLESE:PL.' 

G0 --> KIS....OKTÁV G-HANG” 

GI --> EGYVONALAS OKTÁV G-HANG" 

G2 —> KETVONALAS OKTÁV G-HANG" 

GIF —> KIS MÁSODDAL FELEMELT" 

EGYVONALAS.G-HANG; GISZ" 

NT" Y$: A 2.SZÓLAM HANGJAINAK ABC-S NEVE" 

ES AZ OKTAVBEOSZTAS JELOLESE:" 

LÁSD MINT X$" 


Z$: 


PRINT" 


HANGJEGYERTEK JELOLESE:PL.: 
E ~> EGESZHANG" 

PF —> PONTOZOTT FELHANG" 

N —> NEGYEDHANG" 

PY —> PONTOZOTT NYOLCADHANG" 


PRINT'DALLAMSZERKESZTES —> A FENTIEK" 
PRINT'SZERINT A DATA SOROK ATIRASAVAL. " 

PRINT" ZENET KÉR V. VEGE Z/V ? ":GETKEYW$ 
IFW$="Z"THENPRINT"3":GOTOI8 
IFW$="V"THENPRINT"T;END:ELSEI35 


,F,H0.F 


O 

O 

O 

o 

o 

o 

o 

p 

o 

o 

o 

o 



o 


o 


o 


o 


o 


10 GRAPHICl,1:SCNCLR 

11 CHAR1,9,0,"=====================" 

12 CHAR1.9.1."=GR.KAR.SZERK.(8*12)=" 

13 CHARl.9.2.■=====================" 

14 CIRCLEl,147,46,10:PRINTrPRINT:PRINT 

15 DIM X(12):Z=9936:K=0 



16 

AS=". 

_ X. . 

H 

A$=AS:G0T028 


17 

B$=". 

...X.X. 

N 

A$=B$:G0T028 

o 

18 

C$=". 

. . .X. X. 


A$=C$.607028 


19 

D$=". 

. . .XX. . 

H 

A$=D$:G0T028 

0 

20 

E$=". 

. .XX. . . 

« 

A$=E$;G0T028 

21 

F$=". 

.X. XX. . 

H 

A$=F$:G0T028 


22 

G$=". 

.X.X.X. 

•• 

A$=G$:G0T028 

0 

23 

H$=". 

.X.X.X. 

H 

A$=H$:G0T028 


24 

I$=". 

. . XXX. . 

H 

A$=I$:G0T028 

o 

25 

J$=". 

. . .X. . . 

II 

A$=J$;G0T028 

26 

K$=". 

. X. X. . . 

M 

A$=K$;G0T028 


27 

L$=". 

. . X _ 

II 

A$=L$:G0T028 

o 

28 

K=K+1 





29 

RÉM 





30 

31 

32 

33 

34 

35 

36 

37 

38 


IF MID$(A$, 1, 1 ) = "X"THENX<0)=2T7 
IF MID$(A$,2,1)="X"THENX(1)=2t6 
IF MID$(A$,3. l) = "X"THENX(2)=2t5 
IF M1D$(A$,4, l) = "X"THENX(3)=2t4 
IF MIDS(A$,5,n="X"THENX(4)=2T3 
IF MID$(A$,6,l)="X"THENX(5)=2t2 
IF MID$(A$,7,1)= 


X"THENX(6)=2T1 
IF MID$(A$.8, I) = "X"THENX(7)=2t0 

X=X(0)+X(l)+X(2>+X(3)+X<4-)+X(5)+X(6)+X(7) :PRINTTAB( 14); A$;X 

39 P0KEZ,X:Z=Z+1 

40 F0RJ=0T011:X(J)=0:NEXT 

41 RÉM 


o 

o 

o 

o 

o 

o 

o 


o 


Q 

O 

ü 

O 


o 




JÚNIUS _ 16 






















EGYESÜLET 




o 

o 

o 

o • 

o 
o 
o 
o 
o 
o 
o 
o 
o 


42 IF K=1THEN17 

43 IF K=2THEN18 

44 IF K=3THENI9 

45 IF K=4THEN20 

46 IF K=5THEN2I 

47 IF K=6THEN22 

48 IF K=7THEN23 

49 IF K=8THEN2=1025G:GOTO24 

50 IF K=9THEN25 

51 IF K=10THEN26 

52 IF K=nTHEN27 

53 CHARl.S,14,“KÉRI A MEMORlACIMEKET? I/N" 

54 GETKEYVS 

55 IF V$=“I“THENGRAPHIC0:PRINTCHRS(14);ELSEGRAPH1C0:PR1NTCHR$(14):SCNCLR:G0T059 

56 CHARl,13,0,"====,====,====“ 

57 CHARl.13.I."=MEMORIACIMEK=" 

58 CHARl.13.2."==============“ 

59 CHARl,13.18,“KÉSZÍT UJ RAJZOT? I/N" 

60 GETKEYVS 

61 1FV$=“I“THENPRINT“3“:PRINTTAB(8)"R A J Z 0 L A S";LIST16-27lELSEPRINT";T':END 

62 1=7 

63 F0RJ=3T014 

64 CHARl, I, J.".“ 

65 NEXT 

66 PRINTrPRlNT 

67 PRINTTAB<3)“F I G Y E L E M !“ 

68 PRINT 

69 PR1NTTAB(3)“H0GY AZ 'ALSÓ RAJZLAP' NE ÜSSÖN AT.“ 

70 PRINTTABI3)"RAJZOLÁS ELŐTT RETURN-NEL" 

71 PRINTTAB(3)“POTYOGTESSUK VÉGIG A 12 SORT!" 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


Tisztelt Szerkesztőség! 

Régóta olvasom a lapjukat, de előfizetője csak ettől a félév¬ 
től lettem. A lapjuk nagyon tetszik, esak egyetlen észrevételem 
van; szükség volna minden szám első oldalára egy tartalom- 
jegyzék. 


A mellékelt lemezen saját fejlesztésű Basie programot kül¬ 
dök önöknek, esetleges közlésre. A címe: Body Building U3.0, 
ez egy testedző program. A program ismertetésére és kezelése 
módjára most nem térek ki mivel be van építve a használati utasí¬ 
tás. Maradok továbbra is hű olvasójuk; 

Varga Sándor 


O 

O 

o 

o 

o 

o 

o 

o 

o 


0 RÉM BODV BOILDIHG m* 

1 PRIHT"^-lflNV (S-E'L 0£;ZTH0Ti:i> EEKVOTFlMBSZROL. 

2 PRINT"INDULSZ?" 

3 INPUT S= 


4 IF<S/5><> I NT<;S/5> THENPRINT "MONDRM, HOGV 

5 IFS=0THENS=5 

6 FORQ=0TO255 ^ P0KE532S0, 0. ■■ NEXTQ 

7 P0KE53272,23 
10 RÉM B.B. V3.0 
20 RÉM C VSC 

30 RÉM 


40 RÉM CIMKEPERNVO KIRR-JZOLFISFl 
50 POKE53280,0‘P0KE532S1.0■PRINT" 313" 

S0 PRINT" lODV BUILDING >1:3.0" 


70 PRINT" 
80 PRINT" 
90 PRINT" 
100 PRINT" 
110 PRINT" 


BV VSC" 
1992 . 6 . 6 " 
PROGRRMMED BV" 
>.-RRGfl ♦RNDOR" 


ÖTTEL 


120 PRINT" IÜZENET' I 


OSZTHRTO 


I" 


LEGYEN!"'G0T03 


o 

o 

o 

o 

o 

o 

o 

o 

o 
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EGYESÜLET 


o 

130 


140 


150 

o 

160 


170 

o 

180 


190 


191 

0 

195 


2010 

ü 

210 




230 

o 

240 


250 

o 

254 

260 


261 

o 

265 


27^0 



o 

280 

o 

300 


ok)-.!* 


310 

0 

320 


325 


330 

0 

OOcr 

o 

b‘4U 

350 


360 


3 7 rí 

o 

380 


335 

o 

390 


400 


405 

o 

406 


410 

o 

411 


412 


413 

o 

420 


430 


435 

o 

440 


445 

o 

450 

455 


460 

o 

465 


470 

r\ 

480 


490 


500 

o 

510 


520 


530 

o 

540 


542 

o 

545 


550 


560 

o 

57Ö 

o 

605 

610 

o 

6-J0 


640 


650 


PRIHT" I-■-1-1" 

PRINT" IGVRKORLRTOK MPNHVISEGE= I I" 

PR IMT " I-.-•-'-H ■■ 

PRINT" IR GVRKORLRTOKi IFEKVOTRHRSZ !" 

PRIHT" I-• FELULES I " 

PR INT" I GÜGOLRS I" 

PR INT" \ -1-1-,-1" 

PR INT" IPIHENOIDO^ I ISOROZRT^ I I" 

PR INT" I-■->- -J--1" 

PRINT"IBILLENTVUZETKIOSZTflS I" 

PRINT" I I" 

PRINT" IFI-VEGE F3-PIHEHES VEGE I" 

PRINT" I I" 

PRINT" IF2-HRSZ.ÜT. F5-KESZ F7-T0VRBE I" 

PRINT" - 

S=S-5 
S-S+5 
K=K+1 

PRINTS 
PRI NT " ESZ VRGV tIRR? 

GETQí: = IFQ#-" "THEN280 
I FQ:r= " M" THENPRI NT " Zl" ■ END 
IFQ.-t="H"THEN320 
IFQ:í="«"THEN600 
G0T0280 

PRINT"i=»!M««>Ií!»'***i|i*|i**»>iniHENJ EGV KICSIT!" 

REH-PIHENÉS- 

TI :t= " 0010000 " : V=60 •• B=0 

IF í V-B> < 10THENPRI NT " ; V-B 

IF c v-B;■ >= 10THENPRI NT " ; V-B 

B=VRL <RIGHT$< TIí,2> > 

GETQí 

IFQ5í: = "M"THENPRINT“Z!" • END 

IFQ:T="!a"THEN480 

IFV-G=ITHEN400 

G0T0335 

RÉM-PIHENÉS VEGE- 

PRINT"!«iSÍWIígWWS***|i*|i|i|i|«»t>:EGE VRGV TOVRBB? 

POKE53^^30. 12 
SÍ=54272 
RS=54295 
PL=54296 

POKES1+4,0-POKES1+2,0 = POIÍESH +3,S = POKES1+5,0 = POKES1+6,240 

POKERS,0 = POKEPL,15 

POKES1,0 = POKES1 + 1,0 

POKES1,3 = POKES1+1,45 

P0KES1+4,G5 

R=0 

GETQT- 

R=H+1 

I FQí== " M"THENPOKES1 +4,64 = POKE532S00 = PR INT "H" = END 
IFH=40THENPOKES1+4,64 = COTO500 
I FQ2F=" Hl"THENPOKES 1 +4,64 = POKE532S0,0 = GOTO260 
IFQ$<>""THENPOKE532S0,0 = POKES1+4,64 
GOTO450 

RÉM HRNG VEGE DE KÉRDÉS FENNRL - 

GETQ* 

IFQí:="il"THEHPOKE532©0,0 = GOTO260 
I FQT-= " W"THENPOKE53280,0 = PRI NT "H" = END 
GOTO 510 
N=1 

DRTR6H10 

DIMKCH',- 

FORI=lTON 

RERDR = K <I> =R = NETX 

PR INT ”2]" ; 

PRIHT"£í10DV BUILDING X3.0 HRSZNRLRTI UTRSITRSB!" 
PRIHT"-'EZEUESEM NRGVON EGVSZERU. '^RRR VRGVOK" 
PRINT"KIFEJI_ESZTVE, HOOV RZ EMBEREK " 

PRINT"SEGITSEGCEMMEL MEGTRRTHRSSRK" 

PRINT"MINDENNflPI KONDICIOJUKRT. ~S EHHEZ " 

PRINT-NIHCS MRSRR SZÜKSÉG MINT ENGEM HRPONTR" 


O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


















EGYESÜLET 


o 

o 

o 

Q 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


660 PRIHT"EGVS;ZER LEFUTfiTTHI. -€4 TIPÜSU " 

670 PRIHT“SZRMITÓGÉPÉN VFIGVOK FUTftTHflTO, TESTEDZŐ" 
6S0 PRINT-PROGRON VOGVOK. -'ESZITÓN >:ORGR ♦RNDOR, " 
690 PRINT"l('Z INDITRS UTRN R KŐVETKEZŐ KÉRDÉST " 

700 PR INT "TESZEM FEL’'' llt'/I <5~l “L r»4l l+l O " 

710 PRINT"~“-':xri -t-Z ITT BERDOTT" 

720 PRIHT"VflLRSZODTOL FUGGNHOGV NILVEN ,NEMEZ " 

730 PRINT"FELRDRTOKfiT KRPSZ. IR BEIRTOD R SZRMOT" 
740 PR INT "USD LE R ■'-“l .w"' BILLENTVUT. ÍR SZRM " 
750 PRINT"BEGEPELESE NÉLKÜL UTÓD LE R •'--1 ..w'- " 
760 PRIHT"BILLENTYŰT, VRLRSZOD 5-NEK TEKINTEM. ♦ " 
770 PRINT"F0 EGYSEGEMBEN EGY JÓL RTTEKINTHETŐ " 

780 PRINT"KÉPERNYŐ TRLRLHRTO. *Z ÜZENET FELIRRTU " 
790 PRINT"RBLRKBRN KERESZTÜL TUDOK 'SZÓLNI''" 

S00 PRINT"HOZZRD. >RL.RSZOLNI ES UTRSITRSOKRT " 

810 PRINT"RDMI R FUNKCIÓ BILLENTYŰKKEL TUDSZ. " 

812 PRINT 

813 PRINT" m-LRPOZRS lir3-KILÉPÉS ■" = GOSUB 9010 
820 PRINT":xEGEZD EL R GYRKORI. RTOlíRT. ♦ " 

830 PRINT"GYnKORLRTOKRT R GYRKORLRTOK RBLRKBRN " 
^340 PRINT"LRTHRTOD. *Z RLRBBI GYRKORLRTOKRT KELL " 
850 PRINT"VEGEZNEDi" 

860 PRINT" a-EKVOTRMRSZ■BfiENGETEG FORMAJR LETE-" 
870 PRINT"ZIK. -'OVETKEZZEK. NEHRNY FORMR ES RZ RL-" 
880 PRINT"TRLÜK EFíOSITETT IZOMCSOPORTOK." 

890 PRINT" X*UL.**~L IRF-I -■“-'vn BICEPSZ" 

900 PRINT" -'“1 ,■ -“-'xn = HELLI-" 

910 PRINT" ZOM" 

920 PRINT" "I l's.+^V't'L n I -■•-♦-.x :x— I -" 

930 PRINT" ♦“!! ---';>ri ^ VRLL IZOM" 

940 PRINT" ,1 Itx ♦♦ -n_~'v-U -♦—♦l_=VRLL," 

950 PRINT" HRT,PILLANGÓ" 

960 PRINT" ÖL-ELULESi"RÖGZÍTETT LRBBRL,KEZEK TRR-" 
970 PRINT"KON. IRSIZMOT ERŐSÍT." 

980 PRINT" Öli UGOLRS'üfTELI TALPON KEZEK TARKÓN V. " 
990 PRINT"ELORENYUJTVfi. * LRBIZMOKAT ERŐSÍTI." 

1000 PRINT" ♦ GYAKORLATOKBÓL TÖBB SOROZRTOT KELL" 
1010 PRINT"VEGE2NED. ~GV SOROZATON BELÜL R GYRKOR-' 
1020 PRINT"LRTOKRT FOLYAMATOSAN <SZÜNET NÉLKÜL>" 
1030 PRINT"HAJTSD VEGRE. ^Z, HOGY RZ ELSŐ SOROZAT-' 
1040 PRINT"BÁN A GYAKORLATOK MENNYISÉGE MENNYI " 

1050 PR I NT " SF1 -LRP0ZAStilF3-K I LEPESü!" ■ GOSUB9010 
1060 PRINT"LESZ, AZ ELSŐ KERDESEMRE ADOTT VALÓ-" 
1080 PRINT"SZODTOL FÜGG. IR KÉSZ VAGY PIHENHETSZ" 
1090 PRINT"EGY PERCET. “ZT A GÉP MERI,’ DE l-IR ELŐBB' 
1100 PRINT" KIPIHENTED MAGAD A PIHENÉST RZ F3-MRL" 
1110 PRINT"BARMIKOR MEGSZRKITHATOD. ♦ KŐVETKEZŐ" 

1120 PRINT"SOROZATBAN 5-TEL TÖBB LESZ A GYRKORLA." 

11'30 PR INT "TOK MENNYISÉGE" 

1140 PR I NT " 

1150 PRINT" aFl-LRP0ZRStír-3~KILÉPÉS"" ■ GOSUB9010 
1160 GOTO605 
9000 GOTO9000 

9005 RÉM-LAPOZÁSOK--- 

9010 GETQ4: = I FQí:= " " THEN9010 
9020 IFQt="B"THENRETURN 
9030 IFQí:="!H"THEN9050 
9040 GOTO9010 

9050 PRI NT"ni!lBMi>Ii>Mí!»»l»i»i|»i||i|i| r--.-,' 

9060 PRINT"»»i||illilHHHl . I+ZT JA'VASLOM, HOGY I " 

9070 PRINT"|i»IMiMillil I TI.- W I KEZDJ EL AZONNAL I" 


9080 PRINT"li» 
9090 PRINT"|i» 
9100 PR INT "Mi 
9120 PRINT"li* 
9130 PRINT"»|i 
9140 PRINT"Mi 
9150 PRINT"Ni 


ÜÜIIiHilt K-sriW IEDZENI. ■■-.ÜST IS- 1' 
■I||»»II;4I mmisr I MERED A PROGRAMOT I 
•••mii- IKILEPSZ 'v'RGY ED- I" 

•i»Klli|l« IZESZ'? I" 

I FI-KILÉPÉS 1" 

•»»»l I I F3~EDZES I" 

•mHilSil -'-' 


9160 GETQt =IFQ^=""THEN9160 
9170 IFQ«^="lll"THENPRINT"ZI" ‘ END 
9180 lFOí:="a!"THEN RUN 
9190 GOTO9160 


O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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o 

o 

o 

o 

o 

o 

o 

o 

o 
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Hobbi ELEKTRONIKA 


C-64 bővítések 


Fényceruza C-64-hez 


A fcnyccruza a számítógépek hasz¬ 
nos, látványosan használható kiegészítő 
eszköze. Ennek ellenére nem mondható el 
róla, hogy túl gyakori a használata. Ez 
azért van, mert a legtöbb számítógépnél 
komoly hardver és szoftver szükséges az 
alkalmazásához. A C-64 esetében szeren¬ 
csére ez nem így van. Annak idején előre¬ 
látóan úgy tervezték meg a hardvert, hogy 
az A,-es joystick port 6-os lába közvetle¬ 
nül összeköttetésb en van a 6567-cs VIC 
chip LIGHT PEN lábával, ami kényelmes 
illesztési pontot biztosít. 

A VIC minden képernyő felrajzolása 
alatt beírja a tényceruza X és Y koordiná¬ 
táit és a raszter .sorszámot egy-egy regisz¬ 
terbe. Ezek a VIC 19., 20. és 17. regiszte¬ 
rei. Az 512 pontos felbontás legkisebb ér¬ 
tékű bitje azonban elveszne, ezért a hiány¬ 
zó bitet a 16. regiszter utolsó bitje adja. Ha 
megelégszünk a változó koordináták lassú 
követésével, akkor egyszerűen ki kell eze¬ 
ket a regisztereket olvasni. Ennél igénye¬ 
sebb felhasználás esetén megszakíts! is al¬ 
kalmazhatunk. 

A VIC 25-ös regi.sztere a megszakí- 
tá.sjelző, a 26-os pedig a megszakítás en¬ 
gedélyező regiszter. Ezeknek a regiszte¬ 
reknek a 3-as bitje van a fényceruza strobc 
jeléhez rendelve (VIC chip LP láb). A 
megszakítás típusa IRQ. 


A fényceruza alkalmazása 

Az olvasók közül bizonyára sokan 
láttak már olyan modern felhasználói 
programokat, melyek ikonos-egeres 
menüpont-kiválasztással működnek. 
Ezek kiválasztó mechanizmusához ha¬ 
sonló programok készítésére kiválóan al¬ 
kalmas a fényceruza. Ha meggondoljuk, 
sokkal kedvezőbb a választásokat fényce¬ 
ruzával elvégezni, mint a billentyűzet 
gombjait keresgélni. Rajzoló programok 
felhasználásánál is kelleme.scbb a ceruza- 
ha.sználat illúziója, mint a joystické. Nem 
elhanyagolandó eszköz a gyerekek kezé¬ 


ben .sem, mert például egy KIFESTŐ 
programmal hozzájutnak egy olyan .színes 
irka-firka táblához, melyet könnyű töröl¬ 
ni, újrafesteni, a környezet összemaszato- 
Ulsának veszélye nélkül. (Ilyen programot 
lemezen vagy kazettán — kívánság szerint 
— a szerző által összeállított egységcso¬ 
mag tartalmaz.) 

Ez a .szoftver segítséget nyújt nagyfel¬ 
bontású grafika készítésére is. A program 
bcolvasá.sa után egy ábrákkal szemlélte¬ 
tett menüvel jelentkezik be. Az ábráról 


fényccruzával választhatók a funkciók. 
Lehet pontot, egyenest, kört rajzolni. 
Az egyenesek húzhatók egymás végeiből 
vagy egy pontból, vízszintesen, függőle¬ 
gesen. Rajzolható négyszög üre.sen, sraf¬ 
fozva, de kifesthető mindenféle más alak¬ 
zat is. A rajzolás vonalvastagsága és színe 
beállítható, a kép feliratozható. Az ábra 
spray-szerűen lefújható, többféle sűrűsé¬ 
gű mintázattal. Lehetséges a képrészlet és 
a teljes kép radírozá.sa is. 

A kész ábra nyomtatható, lemezre 
menthető, onnan visszatölthető. A funkci¬ 
ók kiválasztása a fényceruzával, Commo¬ 
dore billentyűvel történik. Grafika váltás 
a control gombbal lehct.ségcs. 




2. ábra. A lényceruza NYÁK rajza 
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A fényceruza hardver része 

A korábbiakban említettem, hogy a 
C-64 tervezőinek jóvoltából a l'cnyccruza- 
bővítés egyszerűen megoldható. A célnak 
Jól megfelelő kapcsolási rajz az I. ábrán 
látható. 

A T, l'ototranzisztor érzékeli a képer¬ 
nyőt rajzoló clektronsugarat, helyesebben 
az elektronsugár gerjesztette tényt. Ha 
Ti-et nem éri lény, akkor zárva van, így 
nyitva tatja a galvanikusan hozzáesatolt 
T 2 , Tj-ból álló Darlington fokozatot. Ha 
T, előtt felvillan a fény, attól Tj, T., lezár. 
A változást Cl—Rj differenciálja. Az így 
keletkező tüske e gy p illanatra nyitja 'IVet. 
ami a VIC chip LP lábát egy pillanatra 
logikai nullára húzza. Ebből az. impulzus¬ 
ból a VIC megállapítja a koordinátákat, 
amiket a gép a működtető szoftverrel 
megfelelően használ fel. 

A tényccruza összeszerelésére flagy 
llgyelmct kell fordítani, ha a 2. ábrán be¬ 
mutatott panelra építjük az. áramkört. 
Azért, hogy a tényccruza valóban egy ce¬ 
ruza illúzióját keltse, a panelt úgy tervez¬ 
tem, hogy egy filctoll műanyag házában 
elférjen. A méretek ennek következtében 
.szigorúan alkalmazkodnak a ház méretei¬ 
hez. és a beültetésre is oda kell figyelni. 
Fúrjuk ki a panelt, majd a kontúrok men¬ 
tén reszeljük méretre, hogy az a műanyag- 
házban kénycime.sen elférjen. Ültessük be 
az ellenállásokat, a szubminiatűr 100 nF- 
os kerámiakondenzátort, majd a tranzisz¬ 


(A gép felöl nézve) 
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4 . ábra. A CANON csallakozó bekolése 


torokat. A plasztik lokozású tranzisztoro¬ 
kat a lapított részeikkel a panelre fektetve 
kell beforrasztani, ehhez a lábakat derék- 
.szögben meg kell hajlítani. A fototran- 
zi.sztort a panel nyúlványára kell tiirra.szta- 
ni. Itt ügyeljünk a megfelelő polaritásra. 
Ha tévedtünk ebben, az a bemérésnél ki¬ 
derül, mert a fény felé fordítva T,-et, Tj 
kollektorán biztosan nem lesz változás. 

Az áramkör olyan egyszerű, hogy 
élesztőse különösebb műszert, felkészült¬ 
séget nem igényel. A C-64 kímélé.se miatt 
azonban célszerű az áramkört egy 4,5 V- 
os laposclcmről táplálva bemérni. Mér¬ 
jük meg az áramfelvételt. Ha nincs szaka¬ 
dás, zárlat a panelen, értéke 10 niA alatt 
van. Lépjünk egy kéziműszcrrel T,, kol¬ 


lektorára, és fordítsuk fény felé T|-et, 
majd takarjuk el a fény elől. Fény felé for¬ 
dítva, a műszer 4.5 V-ot mutat, eltakarva 
közel 0 V-ot. Ezzel kész az élesztős. 

Ha az előzőekkel elkészültünk, he¬ 
lyezzük a panelt a műanyagházba. 

Forrasszuk be a háromeres csatlako¬ 
zó vezetéket a panelre, fűzzük át a szabad 
végét a műanyagház végét lezáró dugón. 
Ezután a 4. ábra szerint a 9 pólusú Canon 
csatlakozóra forrasszuk fel a megfelelő 
sorrendben a huzal szabad végeit. Ezt 
alapo.san ellenőrizzük; ha rendben van, 
dugjuk fel a kikapcsolt C-64 l-es portcsat¬ 
lakozójára. Ez a C-64 házán jelölve van. 
Olvassuk be az egységcsomagban találha¬ 
tó lemezről vagy kazettáról a programot. 
Ha a képernyőn megjelenik a menü, a 
lényecruzát fordítsuk oda. a végét tegyük 
rá az ernyőre, azon a ponton megjelenik 
egy jel, ami a ceruza mozgását követi. 

Előfordul, hogy a fényccruzával moz¬ 
gatható jel nem a ceruza hegyénez esik, 
hanem 1—2 cm távolságra követi azt. Ez 
főleg akkor fordul elő, ha monitornak 
normál fV-t használunk. A hiba oka a 
sorfázis beállításában rejlik. Ezt a TV-n 
belül lehet korrigálni. Valamennyi eltérés 
mindig lesz, hiszen az egész rendszer le¬ 
hetősége a bevezetőben említett letapoga¬ 
tási sűrűség miatt korlátozott. 

A fényceruza működés közben meg¬ 
tekinthető. kipnibálható a szerző üzleté¬ 
ben. Cím és árajánlat a 2. oldalon közölt 
hirilctésbcn megtalálható. 
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Még többet ésszel! 


XIII. rész 

A Szerkesztőség azon a nézeten van, hogy sok tapasztalatlan 
programozó segítségére lehet, ha a külső egységek, azaz a peri¬ 
fériák kezelésével külön is foglalkozom. A Commtxlore .szak¬ 
könyvek közül ma már csak a dr. Úry-féle kézikönyv kapható, 
és bár ez talán a műfaj legjobbja, mégsem árulhat el mindent. 
Az elkövetkező néhány részben megpróbálom összefoglalni a 
perifériák használatának lényegét, rendszeresen, de egy tan¬ 
könyvnél azért szűkszavúbban. Helyenként megemlítek olyan 
fogásokat is, amelyek csak a C64-c.sen próbálhatók ki. de hát a 
legtöbben ezen a gépen dolgozunk. A cikkek legnagyobb ré.szé- 
ben a lemezegység használatáról fogok beszélni, mivel ez azegy- 
.ség mes.sze kiemelkedik a használat lehetőségeit és problémáit 
tekintve. A sorozat eredeti céljához híven ezután is csak a BASIC 
nyelven történő alkalmazás területén maradok. Ha valaki téve¬ 
dést vél felfedezni az elmondottakban, továbbra is szívesen foga¬ 
dom a kiigazítást. 

A perifériák többféleképpen is csoportosíthatók, az adatfor¬ 
galom (mert ez a lényeg) iránya szerint, vagy például a tartós 
adattárolásra való alkalmasság szerint. Mindettől függetlenül a 
központi egység (,,a gép”) minden cgy.séget egy azonosító szám 
segítségével különböztet meg. Ez a szám a következő: 0 billen¬ 
tyűzet, 1 magnó, 2 RS-2.')2 (a u.scr portra csatolható átviteli il- 
lc,sztő), 3 képernyő, 4—5 nyomtató, 8- II lemezegység. Bizo¬ 
nyára sokakat meglep, hogy a billentyűzet vagy a monitor egy 
kalap alá kerül a nyomtatóval, pedig ez az igaz.ság. A gép számára 
mindkét egység ,,külső”, a táron és a processzoron kívüli, ezért 
azok ,,megszólításakor” az eszközszámmal hivatkozik rájuk. 
Ahol egy eszközfajta többféle számot is kaphat, ott abból több 
darab is csatolható a géphez, ha eltérő eszközszámot határozunk 
meg .számukra. Ez lehetséges tartósan is, egy kapcsolóval vagy 
egy vezeték átvágá.sával; vagy átmenetileg, az eszköz memóriá¬ 
jában átírva valami értéket. 

Ha mi BASIC-ből valamelyik egységgel adatot akarunk cse¬ 
rélni, akkor először egy adatcsatornát kell hozzá nyitnunk, még¬ 
pedig a következő utasítással: OPEN lfl,dn[,sa[,parin]]]. Az 
utasítá.sban látható szögletes zárójelek azt jelentik, hogy a köz¬ 
tük levő jelsorozat elhagyható. A rövidítések megegyeznek az ál¬ 
talánosan ha,sználtakkal, és angol eredetűek. A 'dn' az eszköz¬ 
szám (device number), ide a fentebb felsorolt számok közül kell 
a megfelelőt beírni. Az 'sa' másodlagos címet (secondary add- 
ress) jelent. Ennek értelme minden egység számára más, de 
mindig valami kiegészítő .számadatot tartalmaz. Hasonló a hely¬ 
zet a 'parin' fedőnevű paraméter-stringgel. Ezek részletes ma¬ 
gyarázatát az illető eszközök kapcsán egyenként árulom el. 

Az 'If' jelentése logikai fileszám. Ez egy egész .szám lehet 
1-től 255-ig. Az a szerepe, hogy a megnyitáskor az eszközhöz 
(illetve annak egy file-jához) rendelünk egy egyedi számot, és 
a továbbiakban a file-t ezzel azonosíthatjuk. Az OPEN utasítás 
végrehajtásakor a BASIC rendszer megvizsgálja, nem nyitot¬ 
tunk-e már meg egy ilyen .számú file-t, majd a fileszámot, a hoz¬ 
zá tartozó eszközszámmal és másodlagos címmel együtt elhelye¬ 
zi a memóriájában egy táblázatban. Ebben tíz hely van, tehát 
össze.sen ennyi fiié tartható egyszerre nyitva (mert a fiié le is zár¬ 
ható). A táblázat szerepe, hogy a már megnyitott fiié adatait nem 
kell minden azt kezelő utasítá.sban állandóan újra elsorolnunk. 



hanem elég a fileszámot megadni. A gép ez alapján a többi para¬ 
métert önállóan meg tudja keresni. A RUN, NEW, CLR utasítá¬ 
sok a táblázatot kiürítik, ami megnyitva hagyott a file-ok e.setén, 
elő.sorban lemezen, adatvesztést is okozhat. 

Most hívom fel a figyelmet arra, hogy a különféle paraméte¬ 
rek helyén nem csak szám-, illetve karakterlánckonstansok sze¬ 
repelhetnek, hanem tetszőleges, azonos típust eredményező ki¬ 
fejezések is, amint az a BASIC-ben elvárható. 

'risztázandó a fiié (kiejtve táji) fogalma. Magyarul (adat)ál- 
lománynak .szokás nevezni, mivel eredetileg az összetartozó, tá¬ 
rolt adatok egy jellegzetes csoportját jelenti. De kitcrje.szthető 
a fogalom olyan adatokra, amelyek a fogadó eszközön nem táro¬ 
lásra, hanem csak feldolgozásra kerülnek, például a nyomtatón 
vagy a lemezegység parancs-csatornáján. Így végül a file-nak, 
azaz állománynak hívhatunk minden megnyitott adatcsatornát, 
és a BASIC-ben e szerint kezeljük őket. 

Tekintsük át a filekczelő utasításokat! Megnyitásra való az 
OPEN, Id. fent. Lezárásra a CLOSE If való. Az állományok biz¬ 
tonságos kezeléséhez hozzátartozik, hogy minden megnyitott ál¬ 
lományt legkésőbb a program végén külön parancc.sal le is zá¬ 
runk, még ha a rendszer esetleg nem is követelné ezt meg tőlünk. 
Lezárhatók megnyitatlan állományok is, ekkor semmi nem törté¬ 
nik. Az állomány lezárásakor annak adatait törlődnek az előbb 
említett táblázatból. 

Állományba írni a PRINT# lfl,[nyointl) .szerkezetű pa¬ 
rancc.sal lehel. A 'nyomtatási kép' helyére ugyanúgy megszer- 
kc.szlhető egy adatokból és tabulálorokból ös.szeállítolt .szöveg, 
ahogy az a közönséges PRINT esetében szokás. Más kérdés, 
hogy például a nyomtatók másképp értelmezik a tabulátorokat, 
mint a képernyő. A ' nyomt' paraméter hiányában a parancs csak 
egy 13-as karaktert (RETURN) ír ki, azaz sort emel. Egyébként 
a PRINT is állományba író utasítás, csak speciálisan az elsődle¬ 
ges kiviteli eszközre. 

Állományból olva.só utasítások: INPUT [promt,Jvlista, 
INPUT#lf,vlista, GETI#lf,|vlista. A 'promt' egy karakteres 
konstans, amellyel a bekért adatok jellegéről üzenhetünk a prog¬ 
ram felhasználójának. A 'változólista' egy, vagy több vesszővel 
elkülönített változót jelent. A beolva.sott adatok sorban a meg¬ 
adott változókba másokxinak, feltéve, hogy azok típusa nem üt¬ 
közik a változó típusával. Ez utóbbi cgy.szerűbbcn azt jelenti, 
hogy numerikus változóba karaklerláncot hiába is próbálnánk 
beolvastatni. 

A GET egy karaktert olvas be. Az INPUT és INPUT# utasí¬ 
tások az első ún. terminátorig olvasnak egy változóba tartozó 
adatot. Ezek a Return, a vessző, a kettőspont és a nullás karakter. 
A beolva.sás trükkjeiről majd a szekvenciális állományok olvasá¬ 
sánál mondok többel. 

Külön ki kell emelnem, hogy a beolvasó utasítá.sok parancs¬ 
ként nem használhatók, csak programsorban. Ez azért van, mert 
a beolvasott adatokat a gép átmenetileg ugyanazon a tárterületen 
(C64 $0200) tárolja, ahol a parancsokat. Ez azt eredményezhet¬ 
né, hogy egy INPUT-tal felülírjuk az INPUT-ot követő parancso¬ 
kat is. Programmódban az utasítások máshol találhatók, így ott 
ilyen gond nincs. 

Az INPUT és PRIN T utasítások a kijelölt elsődleges eszkö¬ 
zöket használják. Ezek közül a kiviteli eszköz átírására való a 
CMD If utasítás. A sorozat X. részében részletesen írtam már 
erről. Akkor azt nem mondtam el, hogy a CMD-vel átirányított 
állapotot a következő rituális utasításpárral kell helyreállítani: 
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PRINT#lí': CLOSH 11'. Ha nem így járunk cl, hanem csak egy 
CLOSE-t használunk, akkora file le le.sz ugyan zárva, de a kiírá¬ 
sok nem a képernyőre Jutnak, hanem valahová a semmibe. 

A LIST [sorszámlí-sorszám) is egy állománykezelő pa¬ 
rancs, mivel az elsődleges kiviteli eszközre írja a BASIC prog¬ 
ram listáját. Egy felesleges tulajdonsága van, hogy utasításként 
használva utána a program leáll. 

Speciálisan programfilc-ok kezelé.sére való a három utolsó 
utasítás; LOAl), SAVÉ, VERIFY. Ezek részletes alakját majd 
a programfile-ok kapcsán mutatom be. 

A hatféle periféria közül négyet gyorsan elintézhetünk. A 
billentyűzet és a képernyő e.setében a má.sodlagos címnek és a 
paraméter-stringnek nincs jelentése, a megnyitott állományok 
formailag szekvenciális (soros) típusúak. Ritkán lehet szüksé¬ 
günk ilyen kezelésükre, de mindkét eszközhöz van egy példám. 
Ha nyomtatóra való írást tervezünk egy programba, és a teszte¬ 
léskor nincs nyomtatónk vagy nem akarjuk a papírt pazarolni, 
azOPEN utasításban kell csak a nyomtató helyett a képernyő szá¬ 
mát (3) beírni. Ezután minden nyomtatóra .szánt üzenet a képer¬ 
nyőre kerül. Az. INPUT-nál pedig annyival jobb az INPUT#, 
hogy nem Jelenik meg a kérdőjel, valamint ha a kurzor nem a 
sor elején van, akkor a gép nem fogad el üres bevitelt. Egyébként 
komoly programban csak a lusták használnak INPUT-ot. 


Az RS-232 a 2. .számú egység, az user port egy felhasználási 
módját jelenti. Egy megfelelő csatlakozó .segítségével egyszerű 
soros állományként használhatjuk vele adatátvitelre a telefont, 
vagy más típusú számítógépekhez, perifériákhoz csatlakozha¬ 
tunk. Még nem hallottam olyanról, hogy valaki erre használta 
volna ezt a csatlakozót, ezért felejtsük is cl. 

A nyomtató már egy igazi periféria, és széles köroen hasz¬ 
nálatos. Rendszerint egy kapcsolóval állítható be rajta a saját 
egy.ség.száma. A másodlagos cím a nyomtató típusától függően 
sokféle jelentést hordozhat, de a 7-es általában a kisbetű- 
nagybetű karakterkészlet (business set) használatát írja elő. 
Szintén .soros típusú, csak írásra való filc nyitható meg hozzá. 
A nyomtató a géphez képest nagyon lassú, ezért van bennük egy 
átmeneti tároló (puffer), amelyben a nyomtató félreteszi a kapott 
karaktereket, amíg a korábbiak kiírásával bajlódik. Ez a puffér 
több kilobyte hosszú is lehet, ez a magyarázata a csodának, ami¬ 
kor a nyomtató még mindig dolgozik, pedig a gép már rég mással 
foglalkozik. 

Azt hiszem, a nyomtató ha.sz.nálata .sem kíván több .szót. 
Ezek elég általános tudnivalók voltak, de gondolnom kellett a 
kezdőkre is. Legközelebb hozzáfogunk a magnó és a lemezegy¬ 
ség cincálá.sához. 

Hódi Gyula 


C-64, C+4 programok a le¬ 
golcsóbban lemezen és ka¬ 
zettán. Listát küldök. Mészá¬ 
ros György Tibor, 1221 Bu¬ 
dapest, Anna u. 21. 

Programok írását vállaljuk 
C-64-re és C+4-re. Cím: 
BCSB Team, Sidló Csaba, 
3242 Parádsasvár, Arany J. 
u. 33. 

Programok C-64-re ás C+4- 
re 57 Ft/lemez áron! Cím 
BCSB Team, Sidló Csaba, 
3242 Parádsasvár, Arany J. 
u. 33. 

C-64-es programok eladók 
lemezen és C-64-hez való 
magnó. Pád Softwer, 6772 
Deszk, Alkotmány u. 4. 

Keresem a Geofile, Geopub- 
lish, Geocalc, Fontpack plus 
és Despack plus GEOS prog¬ 
ramokat és leírást. Hajdú, 
Tel.: 181-0002. 

C-64-re: kapcsolás nyilván¬ 
tartó, szoft-hardver kataló¬ 
gus, GEOS-lexikon, NYÁK- 
tervező, leírás gyűjtemény. 
Minden alkalmi áron! Kész¬ 
let korlátozott! Varsányi, 
Szombathely, Nagy L. u. 11. 


Keresek Citizen 120D 
nyomtatóhoz magyar nyelvű 
kézikönyvet és IBM (párhu¬ 
zamos) interfacét. Hajdú, 
Tel.: 181-0002. 

NYÁK-tervező és rajzoló 
programokat keresek C-64- 
re. Más felhasználói progra¬ 
mok is érdekelnek! Nyári 
Zsolt, 7099 Felsőnyék, Kos¬ 
suth U.16. 

C-64 programokat eladok, 
veszek lemezen és kazettán. 
Válaszborítékért listát kül¬ 
dök. Tagsági szám: 0016- 

C-64-re 6300 program eladó 
60 FtAemez áron. Válaszbo¬ 
rítékért lista. Szabó Sándor 
(GSOFT), 1204 Budapest, 
Maros u. 98. 

AMIGA 500-as (1.3) 3MB 
RAM-mal, 80 MB HD-vel 
90 000 Ft-ért eladó. Magi 
István, Miskolc, Tel.: (46) 
337-074. 

576-ban megjelent és egyéb 
programok eladása lemezen, 
kazettán. Lemezes progra¬ 
mok kazettás változatai. Ol¬ 
csó árak! Deutsch Szabolcs, 
8749 Zalakaros, Fő u. 19. 
Tel.: (93) 18-481. 


C-64 és C+4-es programok 
eladása. Válaszborítékért lis¬ 
ta. Bognár Péter, 8900 Zala¬ 
egerszeg, Madách út 6. 

C-64 Cartridge-ok 700, Pi¬ 
nái 111. 2800, Epromégetők 
2100 Ft-ért eladók. Válasz- 
borítékért ismertető. Mik- 
roklub, 8100 Várpalota, 

Pf.: 65. 


C-64-es szuperprogramok 
kazettára eladók. Válaszbo¬ 
rítékért listát küldök. Deve- 
cseri Bálint, 9317 Szany, 
Bartók B. u. 42. 

Eladó C-64, 1541 II floppy, 
Seikoha GP-lOO VC printer, 
programok, irodalom méltá¬ 
nyos áron. Szabó János, Bu¬ 
dapest, Tel.: 158-6308. 


Fi'illl'BSUa I. 


Tisztelt olvasó- és tagtársaim! 


Van néhány olyan Plusz/4-re írt programom, amelyek úgy 
lennének igazán készen, ha BASIC-ből ékezetesen tudnék nyom¬ 
tatni. Ilyen programok pl. egy cím nyilvántartói, a C-újságban 
is megjelent szótár és egy most ké.szülő, tetszőleges ABC szerint 
névsorba rendező. 

A számítógép karakterkészletének megváltoztatásával nincs 
gondom, csak a GP-500VC SEIKOSHA nyomtatót szeretném 
magyarra tanítani. 

Olyan programra gondolok pl. mint amilyen a MIKRO MA¬ 
GAZIN 1987. 8. számában jelent meg COMMODORE 64-re, 
sajnos a szerző nevét nem tudom. 

Talán tudna .segíteni Várkonyi István a ,,3-PLUSZ-l magya¬ 
rul” program szerzője, vagy Morvái László az ,,Ékezetes be¬ 
tűk” .szerzője, vagy Lugosi Antalné az ,,Ékezetes betűkészlet”, 
vagy Lőrentei János a ,,80 karakteres szövegszerkesztő” 
szerzője, 

Természete.sen minden .segítségnek örülnék. 

Bagdács Lajos 
4130 Derecske 
Dózsa György u. 15. 
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Amőba program 


Programozta és a leírást készítette; Erdödy János. 

A játék szabályai: 

A tábla négyzet alakú. Az egyik játékosnak fehér, a má¬ 
siknak fekete bábui vannak. A játékosok felváltva tesznek 
egy bábut a tábla bármely üres mezőjére. 

A játékot az nyeri meg, akinek először sikerül öt bábul 
egy vonalba állítani öt szomszédos mezőre (akár vízszinte¬ 
sen, akár függőlegesen, akár átlósan). 

A program kezelése: 

A kurzorvezérlő billentyűvel választhatjuk ki, melyik me¬ 
zőre teszünk bábut. A ,,relurn" billentyű lenyomásával te¬ 
hetjük le a bábut. A programnak két változatát küldtem be: 
az eredeti BASIC-et és az Austra compilerrel elfordítottat, 
hogy könnyebb legyen tesztelni (mert a lefordított változat 
gyorsabb). 

A program által használt stratégia: 

A program a tábla üres mezőit pontozza. Ha egy üres 
mező mellett több bábu áll, akkor magasabb pontszámot kap 
az a mező, és végül a program kiválasztja a legmagasabb 
pontszámú mezőt és ez lesz a lépése (tehát ide teszi a bá¬ 
buját). Ezt a ponttáblázatot nem számítja ki minden lépé¬ 
sénél a program, hanem minden bábu letételekor a változá¬ 
sokat beírja a táblázatba. Két ilyen táblázat van, mert kétjáté¬ 
kos van. Nincs az összes üres mező pontozva, mert úgysem 
lenne értelme a többi bábutól nagyon messzire tenni egy bá¬ 
but, ezért van egy lista, amely a pontozott mezőket tar¬ 
talmazza. 

Az üres mezők pontozásáról bővebben: 

Ha valahová letesznek egy bábut a táblára, akkor az a 
mező lekerül a pontozott üres mezők listájáról. Nemcsak az 
újonnan letett bábu körül lévő mezők lesznek pontozva, 
hanem 4 mező távolságig, bár a távolabbi mezők kevesebb 
pontot kapnak. Ennek a szükségessége (hogy a távolabbi 
mezők is pontozva legyenek) az 1. ábrán látható helyzettel 
magyarázható: ha x lépése következik, akkor a bekeretezett 
mezőre azért is érdemes lépnie, mert az ,,A" vonalában is 
lesz 2 db X és az ,,1” vonalában is (a lépés után). Ennek a 
mezőnek azért lesz magas pontszáma, mert ,,C1'-en lévő 
x-től is kap pontot az ,,A1'-es mező és az ,,A3'-on lévő x-től 
is. 

Hogyha az újonnan leteti bábu mellett vannak még 
ugyanannak a játékosnak bábui, akkor abban az irányban 
(amelyikben több egyforma bábu is van) nagyobb pontszá¬ 
mot fognak kapni az üres mezők, tehát a 2. ábrán ,,C1'-nél 
kisebb pontszáma lesz, mint ,,C3'-nál. 

Hogyha az egy irányban lévő bábuk mindkét oldalán 
vannak szabad mezők, akkor ezek a szabad mezők több pon 
tót kapnak. Teháta3. ábrán ,,A1" kevesebb pontot kap, mint 
,,A3". Hogyha egy üres mező két oldalán ugyanolyan bábuk 
állnak, akkor ez a mező plusz pontot kap ezért (4. ábra: 
,,A2"). 

Hogyha az egy irányban lévő bábuk mellett nincs annyi 
hely, hogy elérjék az 5 bábut, akkor ezek az üres mezők mí¬ 
nusz pontot kapnak (5. ábra: ,,E3''). 

Összefoglalás és kiegészítés az üres mezők ponto¬ 
zásáról: 

Egy bábu hatására a 6. ábrán besatírozott mezők kapnak 
pontot. Minél közelebb van egy üres mező a bábuhoz, annál 
több pontot kap. 

7. ábra; az ,,x'' hatására a besatírozott mezők kapnak 


pontot. Az ,,0" bábu miatt kevesebb mező kapott pontot, 
mint a 6. ábrán. A 7. ábrán az ,,x" miatt az ,,0" bábu korábbi 
pontjai közül is elveszett néhány (C6,C7). 

Vázlatos programleírás: 


Ez a főprogram, ez hívja meg a szubruti¬ 
nokat, itt fut a játékciklus is. 

Ez a rutin intézi az emberi játékos lépését, 
azon belül a kurzor vezérlését, meghívja a 
pontozási táblázat kiegészítőt lépés után 
és meghívja azt a rutint, amelyik kirajzol 
egy bábut a képernyőre. 

Ez a rutin választja ki a számítógép lépé¬ 
sét. Utána ugyanazt csinálja, mint az elő¬ 
ző (100-340) rutin. 

Inicializálás. 

Tábla kirajzolása. 

Egy bábu kiírása. 

Játékosok beállítása. 

Pontozási táblázatba beírás. 

Pontozási táblázatból a fölösleg törlése. 
A javított érték visszaírása a pontozási 
táblázatba. 

Javított input (ezt a C-újságban találtam). 


20-90; 


100-340: 


350-590: 


600-720 
730-800 
810-850 
860-1030: 

1040-1400 
1410-1710 
1720-1930 

1940-2020; 

A lényegesebb adatstruktúrák: 

T(0 —625): Önnél az egydimenziós változónál az in¬ 

dex a tábla mezőjének a száma. A tartal¬ 
ma az, hogy milyen bábu van a mezőn (1 
vagy 2). Ha üres mező, akkor az értéke 0, 
ha a tábla széle (ez már nem a játéktér), 
akkor 9. A játéktér 23x23 mezős, de ez a 
programban 25x25 mezősnek van ábrá¬ 
zolva, mert az a 2 mező plusz mindkét 
irányban a tábla szélét jelzi. 

V(0 —625, 0— 1): Az 1. idenx a tábla mezőjének a száma, a 
2. index a játékos száma-1, tartalom: a 
mező pontszáma. 

1(0 — 625): A pontozott üres mezők listája azért van, 

hogy ne kelljen az összes mezőt végignéz¬ 
ni . Elemeinek száma a játék elején dinami¬ 
kusan nő. Tartalom: egy pontozott üres 
mező száma. 

AKO —625): Index: a tábla mezőjének a száma, tarta¬ 

lom: a pontozott üres mezők listájában a 
hányadikként van bejegyezve ez a mező. 
N(0—3, 0—1): 1. index: 1. irány (függőleges, vízszintes, 

ferde): (| — / \). 

2. index: 2. irány: pl. íüggőlegosnél; le, 
fel. Tartalom: ennyit kell hozzáadni az ak¬ 
tuális rnezőszámhoz, hogy a megfelelő 
irányú elmozdulást megkapjuk. 

Programműködés leírása: 


20-30: 

30; 

N30—3, 0—1) adatai. 

40: 

Inicializálás meghívása. 

50: 

Ha az aktuális játékos a computer, akkor 
a c lép. 

60: 

Ember lép. 

70: 

Ha egy irányban 4-nél több egyforma 
bábu áll, akkor nyert az aktuális játékos. 

80: 

az aktuális játékos megváltoztatása (ha 
C = 1 volt, akkor C 2 lesz vagy 

fordítva). 

100-340: 

100-110; 

Játékos nevének kiírása. 


C' 


JÚNIUS _ 24 










PÁLYÁZAT 
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130-290: 

320; 


340 
350 - 390 
370 


400-510: 


520 - 530: 


540 - 590: 


600-720: 


630-650 

680-710 

730-800 

810-850 


860-1030: 


1080-1090: 


1110-1130: 


1210 : 

1230-1240: 


1250-1286: 


Kurzor villogtatása, mozgatása, a mező 
kiválasztása. 

A pontozott mezők listájáról törli azt a me¬ 
zőt, ahová a bábut tette a játékos, meg¬ 
hívja a pontozó rutint, beírja a táblára a 
bábut. 

Kiírja a bábut. 

Ha eddig még nem lépett senki (üres a 
pontozott mezők listája), akkor kiválasztja 
a középső mezőt, hogy ezt lépje. 
Kiválasztja a legnagyobb pontszámú 
mezőt az egyik játékos bábuinál és a má¬ 
sik játékos bábuinál. A kettőt összeadja 
és abból is kiválasztja a legnagyobbat 
(KE). 

A saját bábui által pontozott üres mezőket 
többre értékeli, ezért megnöveli (ezáltal 
lesz aktív játékos: 9. ábra; ezért lép x P5-re 
vagy A5-re). 

Kiválasztja a legnagyobb pontsíámot, 
meglépi (570 — 580 ugyanaz, mint 
330-340). 

Inicializálás 

a játékosok beállítása, 
táblakirajzolás meghívása, 
tömbök deklarálása, feltöltése. 

A táblatömbbe beírja a tábla szélét. 

N(0 —3, 0—1) feltöltése. 

Tábla megrajzolása. 

Egy bábu kirajzolása úgy,, hogy néhány 
másodpercig inverzen látható (egy billen¬ 
tyű leütésére is tovább megy). 

Üres mezők pontozása 
ez egy olyan ciklus, amelyik mind a 
négy irányban egyszer hajtódik végre 
(x = 0-3). 

Megszámolja, hány bábu van egy irány¬ 
ban. Ha a most letett bábun kívül van 
másik is (ugyanolyan bábu), akkor 
az abból származó pontszámot letörli 
(14-1-10-1710), mert úgyis beírja majd az 
új pontszámot. 

Az egy irányban lévő egyforma bábuk 
mellett ugyanabban az irányban lévő üres 
mezőket számolja meg, de max. 4-ig 
megy el (Q). Ha eközben beleütközik egy 
bábuba, akkorannaka pontjait letörli úgy, 
hogy nem veszi figyelembe az újonnan le¬ 
tett bábut (1420 — 1720), és utána vissza¬ 
írja a pontjait is (1720—1930), de ezt a 
törlést-visszaírást csak azután hajtja vég¬ 
re, miután mind a két irányt kielemezte 
(y = 1). Ha Ml = 0, akkory = Ó nál nem 
volt bábu, aminél törlést-visszaírást kel¬ 
lene csinálni. UR(0—1) akkor lesz, ha a 
4. ábra esete áll fenn. 

Következő irány, ha nincs ebben az irány¬ 
ban üres mező. 

A legutoljára letett bábuhoz legköze¬ 
lebb eső mezőt megkeresi (az adott 
irányban). 

A helyzetnek megfelelően beállítja a W 
értékét. 


1250: 

1260: 

1270 

1280 

1285 

1286 
1290-1330 

1310 


1320: 

1360: 

1410-1710: 


1410: 

1720-1930: 


1940 - 2020: 

Változók 

Q: 


E$ (1-2): 

C: 

SZ: 

C$: 

N$(0H1-2): 

X$: 

I: 

H: 

El; 

FI; 

G: 

F: 

E: 

T(0-625): 


1(0-625): 

L; 


Ha nincs lehetőség ötöt kirakni ebben az 
irányban. 

Ha csak a bábusor egyik végén van üres 
mező a játékos bábuinak. 

Ha van lehetőség 5 bábu kirakására. 
Egyéb eset. 

4. ábra esete? 

4. ábra esete: W-t megnöveli. 

A pontszám beírása az üres mezőkbe. 

A W szorzó csökkentése, hogy a távolabbi 
mezőkbe kisebb pontszám kerüljön. 
1320-ban lévő képlet magyarázata: azért 
kell az SZ-t <az egy irányban lévő egyfor¬ 
ma bábuk száma) a hatvány kitevőjébe 
tenni, hogy az SZ növekvő értékénél hat- 
ványozottanb növekvő pontszámot kap¬ 
junk. Ez a 10. ábrán látható helyzettel ma¬ 
gyarázható: B2 mező az összes bábutól 
kap ontszámot, de mégis érdemesebb 
például A4-ÍB tenni. Ezenkívül a pont¬ 
számhoz hozzáadja a képlet az üres me¬ 
zők számát. 

A pontozott üres mezők listájába beírja az 
éppen pontozott mezőt, ha még nincs raj¬ 
ta a listán. 

Ha SZ > 4, akkor vége lehet a rutinnak, 
mert nyert a játékos, különben a többi 
irányban is lefut a rutin. 

Hasonló, mint 1040—1400, csak nem ve¬ 
szi figyelembe az utoljára letett bábut, és 
a pontszámot nem hozzáadja, hanem 
levonja. 

Ha ez táblaszél, akkor vissza. 

Hasonló, mint 1040 — 1400, csak nem szá¬ 
mol ki egy csomó értéket, hanem átveszi 
az 1410—1710-ig tartó rutintól (mert az 
mindig lefut ezelőtt). 

Javított input rutin. 
listája: 

Értéke állandó: 3, egy bábutól .számítva 
eddig a távolságig lesznek a mezők pon¬ 
tozva. 

Értéke ,,E'' vagy ,,C", attól függően, hogy 
a játékos ember vagy computer. 

Értéke 1 vagy 2: aktuális játékos száma. 
Egy irányban hány egyforma bábu áll. 
Állandó; 25 db left CRSR 
Játékosok neve. 

Segéd változó inputnál. 

A kurzor képernyő kódja. 

A kurzor villogás számlálója. 

kurzot X j g | 5 yg karakter helye 

kurzor y ) ' 

Annak a karakternek a képernyőkódja, 
amelyen a kurzor áll. 

Kurzor y koordinátája. 

Kurzor x koordinátája. 

Index: a tábla egy mezőjének a száma, 
tartalma: 0 = üres mező, 1 = 1. játékos 
bábuja, 2 = 2. játékos bábuja, 9 = táblán 
kívül. 

Pontozott üres mezők listája, tartalma: a 
mező száma. 

Pontozott üres mezők mennyisége. 


c= 


25 r JÚNIUS 










PÁLYÁZAT 



AI(0-625): 

A tábla egy mezőjének a száma, tartal¬ 
ma: hányadik az 1 tömbben az üres mező, 
0 = nincs benne az 1 tömbben. 

V(0-625, 0-1): 

1. index: a mező száma, 2. idenx: a játé¬ 
kos száma, tartalma: a mező pontszáma. 

AX ■ 1 

a kirajzolandó bábu koordinátái 

KA: 

Az 1. játékos legnagyobb pontszáma, 

KB: 

Az 1. játékos legnagyobb pontszámához 
tartozó másik játékos pontszáma. 

KC: 

A 2. játékos legnagyobb pontszáma. 

KD: 

A 2. játékos legnagyobb ponlszámához 
tartozó másik játékos pontszáma. 

KE: 

Legnagyobb összeadott pontszám. 

W3: 

KA-hoz tartozik: index az I tömbhöz (me¬ 
lyik mező pontszáma a KA). 

W4: 

KC-hez tartozik: index az I tömbhöz (me¬ 
lyik mező pontszma a KC). 

W5: 

KE-hez tartozik: index az I tömbhöz (me¬ 
lyik mező pontszáma a KE). 

X: 

Segédváltozó. 

Y: 

Segédváltozó. 

D$: 

Segédváltozó input. 

P: 

Input hossza. 

0: 

Input max. hossza. 

A: 

Input segédváltozó. 

A$: 

Input segédváltozó. 

K(1-2): 

Bábu képernyőkódja. 

U(O-l): 

Üres mezők száma egy bábusor 2oldalán. 

UR(O-I): 

Ha a 4. ábra esete fennáll, akkor = 20 
(A2-mezőre értendő). 


H: 

Aktuális mező. 

H2: 

Aktuális mező hozzáadásnál 
(1040-1400-as sorok) 

H3: 

Aktuális mező levonásnál (1410 — 1930). 

W: 

Számláló. 

W2: 

Számláló. 

C2: 

Aktuális bábu száma (levonásnál). 

SZ: 

Egy irányban hány azonos bábu áll (levo¬ 
násnál = (1410-1930)) 

Y2: 

Segédváltozó (levonásnál). 

U2(0-1): 

Ugyanaz, mint U(0-1), csak levonásnál. 

UI(O-I): 

Ugyanaz, mint UR(O-I), csak levo¬ 
násnál. 

Z: 

Segédváltozó (játékos száma —1). 

N(0-3, 0-1): 

Irányadatok. 

U1: 

Segédváltozó, 

U2: 

Segédváltozó. 

U3: 

Segédváltozó. 

U4: 

Segédváltozó. 

U5: 

Segéd változó. 

U(0-1): 

Segédváltozó. 

U% (0-625,0- 

3, 0 — 1): 1. index: a tábla egy mezőjének a 


száma, 2. index: irány 1, 3. idenx: irány 2, 
tartalom: üres mezők száma az adott 
irányban. 


U2%(0-625, 0 — 3): 1. index: a tábla egy mezőjének a szá¬ 
ma, 2. index: irány, tartalom: ebben az 
irányban hány egyforma bábu áll egymás 
mellett. 
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20 1 
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40 1 
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!50 


60 1 

Ü 

70 

00 1 


9Q 1 

ü 

100 


l 10 

o 

120 

1:30 


140 
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1G0 


170 
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ü 

200 


210 


220 

o 

2:30 


240 

o 

250 


2GO 


270 

o 

280 


280 

o 

300 

310 


320 

0 

330 


:340 

Ü 

350 


3G0 


370 


^ < c > ■■ pú(«:e i ,0 = tan i. f i , i = 


0=3 

OftTfi-2S,2i5/-£4,24, 

OOSUBÖBO! RÉM ** IHiC 
lFe»<;C>="C“THe.K :3 Sö'iJOTO.’-0' 

oosuE; loe 

IFS2>4rHE.t«PK:lHT"flrt NStRTEti 
C«=3-C 
•S0Tr350 

PRIHT"»"CS-.; 

PF: IMTC“ ÍU .JOTEKOS = " > PRIUTC-i:“ 1i»l"Hí <.C ? 

OOTO300 

X^.sí*' •• I 1x1160 ! H=0 ' íjOTOl í’id 

IF r. = 160THE^* I =13 = GOTO 19v3 

1=160<GOTO1S0 

POlíE 1Q24-V E1 -»F l *40, G I = 1. GO 

ei=E!Fl=F 

G=PEEt!;<; 1.024-» £■> F*40 > 

POF:E1024-*'£+F^40, l 
;>í»= “" 

H=H+1 ■ IFH=20THEHH=0’GOrO:i4O 
GET;*(Í > r.F;><iF=““THEH2lO 

I.FX?=“tiS'‘THEHIFEC2:3THEHE=£+ 1 > OOTO1G0 
1 FXí = “ W" THEHI FF •<;2:3THEHF=F+1 = GOTO 1 GO 
lF;KÍ=‘‘ll“THEHIFe> lTHEHE=e-1 = GoTOlGO 
lFXÍ=“rVTHEHIFF ;> ITHEHF=F-1 ‘ GO l Oi GO 
l FXí=CHRí <: 1:3 > THEH290 
GOTO220 

P0KE1024“»-E+F*4v3, G = RETUF'H 

E=ll=F=11 

GOSU8130 

H=E+F*25 • IFT<.H><:>0 .'HEHISIO 

>=a:i<:H;' ‘fl..f<:H;‘=0’L=L-i =v<:h,C" 

fiX=E ■ RV=F > G0SUBÖ1.0 ^ RETÜRH - 
PRIHT"a-Cí, 

PRrHTC“H. .JflTEKOS ‘ ‘ PR 1.HTC5I "íaüOOHPUTER 

IFL=0THEHH=2G0■T CH > =C = GOSÜG1040■GOTCGGO 
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3S0 líEM COHP. 

3S'0 ts;fi=0: KB=o KC=o ■ ií;rj=C! • tcE==ű 
400 f-Ot?.y.= iTOL 

410 KX=V<J<X> /0> :KS‘=V<.J<;x> . 1> 

420 1PK;'X.~Hí.V>K.ETHt-:KK.E=t!;X< li.v •• W:i=X 
430 I FIí;XCK'. fiTHElW?0 

440 1 f-KX>( íBTHEH!;:H=KX ’ W3=X = 00TÜ470 
450 í Ft:;B>t<:VTHEH4;’0 
460 W3=X •• l£.e=K.'t‘ 

4?0 1 Ft<;Ví;i<'.CTHEI4510 

430 IFl£;V>(c;CTHEHK.C=^l!.V ' W4--X ^ 001051.0 
4S0 IFFOMÍXTHEUSIO 
500 H4=X' K.O--KX 
510 HEXTX 

520 [FC=--1TI-1EHKFí=K;RW 1.2 ‘ ŰOTO5;40 
530 KC=KC*1.2 
540 I. F KO KBT HEHW3 =114 
550 IFKC+|£;0<KEBllDK.R-tKB-;:K.E"l>IEllU3=W5 
560 H= J <;W3> 

570 s <:R.J í.H> >-■} <;l> ■ B..f <:.i <;l. > =h.í ch> ■ i-i.i i h> =0 = l=l-- 1. • v <:h , c-1 ;■ =0 ’ gi;isub 1040 ‘ t m;< =c 

580 fiV=IHT<;H/25>‘fiX=H--BVi»í25= oOoüB OlO^REH Rft.lZ 
500 iV.E'fUlíB 

600 1,30308860 0íEMlHl-4,JTiti IHIC* 

610 G0SU8730.RÉM THBLH 

620 OtM i<:;625> , ■1<;625> , V<:625, 1 > , t'i.f <:625> , t-K 4,2;*, MX(.625 / 3.. 1 > / M2X':625.3 > 

630 FÜRX*=0TO24 = T<;X>=S> = HEXTX 

640 F0RX=25T05753TEP25 ■ V<;x>=8 ■ T(;Xv24>=y = ME>íTX 
650 FORX=60OrO624 ■ T < X> =9 • HE>ÍTX 
660 C=1O_=0 

67'0 C4=" ii'*»iit'i»w»ii!iirwi»i»öwww?j!i!ii»w»»5í»!i!r- 
680 FORX=0T03 
690 FORV=0TOl 
700 EÍEFlDM <; X, V ;• = HEX TV 
710 HEXTX 
720 RETURH 
730 PP.IHT“71." ; 

740 FORX=0TO22-PR1:hT"-" ; O'iEÍÍTX 
750 F'Ri:HT'‘-i" 

760 FORX=0TO22'PRIHT" 1 l" 04EXTÍ' 

7-70 PRINT" ; 

780 FORX=0TO22 > PR I.HT ; > HEXTX 
790 PR):h'T"-'!5T' 

800 RETURH 

810 POKE1024-HTX-HTY:’K40/ KCOnae ‘ PUlí.Elíi'B, O = V14="00O00O" = Ü4=" " 

820 GETDí: ■ X=X41 
830 IFT I :i(0> •• 000002" rHEH850 
840 [FDÍ=""THEH820 

850 PlTl£,E1024-HTX-tTHV;»40, KCC ;> = tíETUR.H 
860 PRi,HT";:»*iai»TMOeR= IRTB ERÜOÜ'.' .JHHÜS" 

865 f-T;Utrr"l>ia«l>.lli»lt-:SinBER VHCV SEirSOl-lt-Tj-TElíWI" 

870 C=1 

880 PRIHTC" . ..riTTEKÜS ‘ ■ 0=1 ^ GO8OB1940 

890 I.FDír=“C"0RÜ.T=" E“ THEH910 

900 PRlHTCHtf;(K13>"CSRK C VHGV E LEHET8EGE3 BEVl. TELHEt:.! " MTOTOO80 
910 H-T <; C > = “ COMPU TÉR " ’ RÉM 

S120 lFOa- = " C “ TMEHI-MV 1 hT " «»;.)MI"M,ri-Eli', •• ; IJOTO970 
930 PR1HT"»IBER" mj=i.2‘PRi:h\'"HEV= 'E 
940 003081940 

950 IFO.T='‘"THt.HPRlHT"ll!!" 1 ■ GUTO940 

960 Hít^CC ;• “LEFTS^COípí'" " , 121 ■ PRIMT" = U5í'=‘‘E" 

970 E4<.C;>=04>PRlHT m:;=i. + 1í, = 1,1-C=2T HEH880 
980 PKINT" l..J'RTEKÜS 0 VHG'.' X- " ; = 0==x ^303081940 ‘ PRTHT 
990 XFDí?>0"0-‘RHDÜ4<>"X“ rHEN980 
1000 1:FD3:='‘0"THEHK<: l > = 15 0«2>=241 GOTO 1020 

1010 ií: <; 1 ;■ =24 • n. < 2 ;■=15 

1020 PR1HT‘')MJ0 volt R BEVl VEt,..?<.í/HX " ; = OO3OB1940 ■ ÍFÜ:i{-=''H" IHEHÖ60 

1030 RETURH 
1040 X=0>V=0 

1050 82= 1 i O <. 0 =0 ‘ 0 <; 1 ;• =0 = ORT.0 > =0 ’ UR< 1 > =0 ■ M1. =0 
1060 H2=H 013=0'GOTO1080 
1070 1F W3= 1. THEHG08UB141 0 
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xööö H2=H2+i'i<:;>c/ v> 

1090 1:FT<H2>=CTHEHSZ=S2+1 .00X01070 

1100 W=»Ű.G0T01120 
1110 H2=H2+ H < X, V > ■ W=H- > i 
1120 IFT<.H2><>0THEH1 IV'O 
1130 ü <: V > =0 <: Y > -n ■ 1 Fw co. theh 111 o 
1140 MT-iíH/ X, V> = 128WUR<;Y;>-HJV=Y+ 1 
1150 1FV.= 1 VHEHIOOO 
1160 i: Ft'l 1 “OTHEH1190 
1165 00X01176 

1170 ífx(;h2>=cxhemur<;y>=i 

1171 fix <; H, X, V > = 12Ö:if 0(í C 't‘ ■> i- O < V > 

1173 IFY=1rHEH1175 

1174 M1=H2’00X01140 

1175 n2X <: H, X > =S2 ‘ OOSüB 1410 = GOSOG1720 •• I Ffl 1 --OXHEfl 1190 

1176 H2=ni .V^OOIl^OZCi:- !fl2=OJ<l> .f1<:i>=32.GO6Uei410 = GOSUG1720 

1177 U2< 1 >=fll • O Jc; 1 ;‘=fl2 = M<:0;:‘=62 ' GUYOl 190 
ii’98 v=0!2=c-i :H2r':<;H<x;'=s2 
1200 H2--H = W2=0 ' W=0 
1210 IFU <: Y ;• =0VHEfl 1340 

1220 Hi.=sz-0j<0>+u< i>+uR<;0>:*'.;Ho'.0>-fO2<:0>'i-ojco;* >+UR< 1 i>-í.fj2<; 1 1 ;■ > 

1 230 H2=H2+M C X , Y > 

1240 ÍFX<;H2>=CTHEHf12X<;H2, X>=SZ ^ flX<:H2. X, Y>=0Rt:Y>*12S+Uí:Y> ' GOXO1230 
1250 IFM1<5XHEMR=0.1= 00X01285 
1260 IFU(;0>=0ORU<;i >=0XHEHM=1 M30T0 1285 
1270 IFM1>5XHEH'W=5'G0X0 1285 
1280 U=1 

1285 IF UR <: Y > =0X HEH 1300 

1286 H=W*<;5/U<Y>> '00X01300 

1290 H2=H2+H<; X, V > ' 1 

1300 1F X <; H2 ><>0XHEH 1340 

1310 V <; H2, Z > = V <; H2, Z > ■>818Z*FH-O Cl-:< 4 W ' W=W:'1S0. 6 
1320 lFHJ<;H2>=0XHEHL=L-t-1 = FI.J-::H2>=L = JCE^^HZ 
1330 IFW2':;QXHEH1290 
1340 Y=S‘+1 
1350 IFV=1XHEH1200 
1360 í FSZ> 4XHEH1400 
1370 ■7=0 ' X=5C4 1 ■ SZ’=1 
1380 1, FX<:4XHEH 1058 
1390 ■■ 

1400 REXURH 

1410 1F V«. H2 > =9 V tlEl IIV.E fORH 

1420 Y2=0 ‘C2='X(.H2> '82=1 = 0270 >=0'027 1 ' Z=17H2>-" 1 ' O IvO ;"==0 ' OJ 7 1>=0 

1430 H2=0‘H3=H2 
1440 H:;?=H3+H < X / V2 > 

1450 IFX7H3>=C2XHEH82=S241= 00X01440 
1460 00X01480 

1470 H3=H3+H7X, V2> ■ U2=W2-t 1 
1480 IF X 7 H3 > <> 0X HEH1530 
1490 U2<;Y2 >'=ü 27Y2>41 = lFW2<:QXHeH1470 
1500 ■.'2=V2-+i 
1510 IFY2=2XHEH1550 
1520 00X01430 

1530 1FX '^HS > =C2XHEHU J < Y2 > = 1 

1532 IF ÜJ' 7 Y 2 > =0X HEH 1500 

1533 IFY2=0XHEHf14=H3'00X01500 

1534 fl5=H3 
1540 ' 

1550 V2=0 

1560 W2==0 ' H3=H2 ' H=0 
1570 IFÜ27V2,>=0XHEH1690 

1580 f|:3=S2+0270 > 4 U2 7 i > -i- O J 7 O > *■ <. M2:!; 7 H4, >í-HIX 7 [14, X, V2 > HHÜ12 7+fl': 7114. :>í, Y2 > FlHD 128/128 > 

1581 H3=fr3-HJJ' 7 l >♦ 7M2X7ri5. X>-Hir-C7H5, •/.. S'2 >Rf 1012741127M5, :>í/ V2 >HMD 128/128> 

1590 H3=H34H7X,Y2> 

1600 IFX7H3> =C2XHEH1590 

1610 I Ft'13 C5XHEHM=0. 1 ' OllXO 1645 

1620 IFU270;<=0ORiJ27 1 >=0XHEHW'=1 •• GOTO 1645 

1630 IFt13>5THEHW=5'00X01645 

1640 W=1 

1645 1F ü.;r 7 Y2 > '=0XHEH 1660 

1646 W=H*75/027V2>> =60X01660 
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1650 V2> •■W2=H£H. 

1660 IFTCHí;><>0THeH16S0 

16?0 VCH3, Z>-V CHS, C8-1S2i+;W > U2C‘i'2>*H > ’ V'4-W*0. 6 

1680 írH2í:QrHEH1650 

1690 V2--V2+1 

1700 IFV2=1THFH1560 

1710 RF.TURH 

1720 I FT <; H2 > =9THEHR£TURH 
1730 V2=l-V 

1740 H::-;=H2 > U2 C V2 > =0 ' l'l - ^ 

1750 H3=H3+H'.'.X, V2;' 

1760 IFTCH;3>=0flHÜH3<>HTHeHi.J2CV2>=U2<V2>+ 1 ' M=W+1 = IFUKQTHEHl ;''50 
1763 1;FIJ2<; V2 > •C4RH0C2=CTHEHIJ .1 C Y2 > = 1 

1765 11- V2=0THEHM4=H3 ’ GOTO 1 .'0 

1766 M5=H3 
1770 V2~0 

1780 W2=0 ' H=0 • H3=H2 ' HX<:H2< X, Y2>=UJ':V2>iH 128+02<Y2> 

1790 IFU2<;Y2>=0THEH1910 

1800 M3=«S2+O2.<.0OZC 1 >+0..f COCvlZXCI lT, X>+(•)*;<.H4 , X< Y2>HHU 127+H:-:<.M4, X, V2>OHÜ 123.'' 128;• 

1801 r-ia =M 3 +0.} <: i > ♦ <; mzx <; , jí .•+tix c n 5 , x. y 2 > hhü 12.7 •> nx <. m 5 , x, s'2 > fh-ío 128/128 > 

1810 H3=H3+H <: X. Y2 > 

1820 IFT<H3>=C2THEHMXCH3, X, V21=0J <:Y2>Ht 128<U2':;V2> .00101810 

1830 Í.Fl:'l3 C5THtCHH=0. 1 > GOTO 1865 - 

1840 IFUZCO >=0ORO2C 1 >=0'l MEHM= 1 ■ OOT01865 

1850 Í.FM3>5THEHW=5'00T01SG5 

1860 Ul=l 

1865 1 FŐJ <: Y2 ;■ =0THEH 1880 

1866 W=W=fC5/ü2<;Y2> > 'GOTOieGO 
1870 H3=H3+H C X / Y2 > > H2=H2,+ 1 
1880 í FT CHS ><>0ORH3=HTHEH1910 

1890 VCHS, Z> =VCH3, Z>+8'tS2Hl(W-H..)2C Y2>' W=Hi«0. 6 

1900 i:fW2<QTHEH1870 

1910 Y2=Y2-H 

1920 ÍFV2=1THEN1('80 

1930 RE I'ÜRH 

1940 Dí=""> ROKE204,0'P=0 
1950 OETRT- IFR.T="“ I HEH1950 
1960 R=BSCCRT-> 

1970 lFR:>31RHQR<96RlUlp<0 VHEHPRln rtH:T; OJT-DT+RT ^ P=P+1 
1980 I.FR> 192RHÜR-C219RHOP'CO'rHEHPRi:i't'rRT; ’ Üsr-'Ciípi-RT = p=P+1 
1990 IFR=20RHDP>0THEHPR IHTRsr; = 0'T=LEF T$ CDsr, LEi-RXis- 1 ‘ P=1>-1 
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o 2000 1:FRC>13THEH1950 

2010 POKE205/2-HRÍ.T207/ 1/ 1 =PO!;.E204. l ‘PRIHT" 
2020 RETURH 
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9. ábra 


8. ábra. A 23—23-as részben van a mezők tartalma. 
0=üres, 1=1. játékos, 2=2. játékos bábúja 
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Tippek—Trükkök 

Seq.- és User-adatállomány betöltése 

Ha a normál LOAD utasítással akarunk egy SEQ vagy USR 
típusú adatállományt betölteni, akkor az operációs rendszer a tö¬ 
mör ,,File nőt found” (nincs ilyen fájl) kifejezéssel válaszol. A 
LOAD utasítás azonban sokkal többre képes, mint gondolnánk. 
Ha az adatállomány neve után vesszőt teszünk, majd odaírjuk az 
adattípust jellemző S vagy U jelel, akkor a .szekvenciális adatál¬ 
lományt a gép a $0801 címtől kezdődően tölti be. Az utasítás 
tehát 

LOAD "ncv,S",8 


Sáv (track) „romboló" 

Gyakran mérgelődünk a másolás ellen védett programok le- 
me/.hiba jelzései miatt. Pedig ezt a jelenséget a saját program¬ 
jaink védelme érdekében mi is kiha.sználhatjuk, és azok másolá¬ 
sát másoktól védheljük. Az alábbi utasítássorozat "READ 
ERROR 21 " hibajelzést vált ki, ami a lemez másolását (disk- 
copy) legalábbis megnehezíti. 

1 OPEN 1,8,15: OPEN 2,8,2,"#": PRINT #1, "U1 2 0"; 
t;0: PRINT. #1, "m-e" chr$(163) chr$(253) 


Minden csatorna zárása egyszerre 

Ha egy programban több I/O-csalornát nyitottunk meg 
Ol’EN-ncl, meglehetősen fáradságos és kellő figyelmet kívánó 
dolog mindegyiket külön egy CLOSE-sal lezárni. Ez egyáltalán 
nem is .szükséges, mert az operációs rendszer megfelelő rutint 
kínál erre, amit egyszerű felhívni a 
SYS 65511 
utasítással. 


Directory — kissé másképp 

Ha a lemez tartalomjegyzékének csak egy részét akarjuk lát¬ 
ni, ilyesféle utasítá.st kell kiadni: 

LOAD "$0:A*",8 

Ilyenkor a LIST után csak azon állományok nevei kerülnek 
a képernyőre, amelyek A-val kezdődnek. Ha azonban csak egy 
konkrét programot vagy adatfájlt keresünk, az effajta névmeg¬ 
adás nem túl szerencsés. A tartalomjegyzéket gyakran manipu¬ 
lálják, vagy szekvenciális adatállományok is lehetnek a lemezen. 
Ilyen esetben értelmesebb pl. csak a programfájlokat kiíratni. 
Erre a célra mindegyik Commodore meghajtón létezik egy sajá¬ 
tos utasítás, ami így hangzik: 

LOAD "$0:*=fájltípus",8 

A tájitípusra elegendő annak csak a kezdőbetűjét beírni, te¬ 
hát pl. s a SEQ, vagy u a USR-fájlok esetében. Az 1581 meghajtó 
még egy fájltípus-fájtát ismer, nevezetesen a CBM-et, a c-betűt, 
ami az alkönyvtár típu.sjele. A fenti utasítá.sforma a C128-on 
BASIC 7 alatt is működik mind a CATALOG mind a DIREC¬ 
TORY utasítás mögött. 


TIPPEK- TRÜKKÖK 
Kattogás lekapcsolása 

Ki ne ismerné azt a mondhatni hibára utaló kattogást, amit 
a Icmczcgy.ség ad ki magából. Ezt sem nem jóleső érzés hallani, 
de a készüléknek .sem te.sz jót. Elkerülhető ez? Igen!. 

A megoldás cgé.sz egyszerű, csupán egyetlen kattanás ma¬ 
rad meg. 

OPEN 1.8,15 "M-W" + CHR$(1()6) + CHR$(0) + CHR$(1) 
+ CHR$(129): CLOSE 1 


Disk full Error — soha többé! 

Tudta már ön, hogy programból is meg lehet állapítani, 
mennyi szabad blokk van még a lemezen? Ez mindenekelőtt 
azért fontos, mert tudnunk kell, van-e még elég szabad hely azon 
a lemezen, amire valamilyen állományt akarunk tárolni. Ez vi¬ 
szont kétsoros programmal elintézhető. 

10 OPEN 1,8,15, "I": PR1NT#1, "M-R" CHR$(250) 
CHR$(2) CHR$(3) 

20 GET#1, A$, B$, B$: A = ASC (A$ + CHR$(C)) -f 
256 * ASC (B$ -f CHR$(0)): CLOSE 1 
Ennek lefutása után az A változóban a lemezen még szabad 
blokkok száma áll rendelkezésre további használatra. 

APPEND-trükk 

APPEND utasítással hozzáfűzve adatokat a szekvenciális 
adatállományhoz, nem mindig tárolódnak kifogáslalnul lemezre 
a blokkok. Ezen még a VALIDATE sem tud mindig segíteni. Ez 
a jelen.ség azonban egész egyszerűen elkerülhető: 

OPEN állományszám, készülékszám, csatorna.szám, 

" @0:név,A " 

Ennek hatására az adatok szabályszerűen fűződnek hozzá a 
már meglévő állományhoz, és nem jönnek létre ha-szontalan 
blokkok. 

Lemezegység-státusz közvetlen 
lekérdezése 

Ismeretes, hogy a lemezegység hibacsatornáját közvetlenül 
nem lehet lekérdezni, mivel az ahhoz .szükséges Input-utasítás 
csak program módban működik, egyébként pedig ,,Syntax 
Error” hibajelzést ad. Van azonban olyan változat, amelyik 
mindkét módban működik. 

OPEN 1,8,15, 

FÓR X = 1 TO 40 
POKE 781,1 
SYS 65478 

Rém: Input-csatorna nyitás 

SYS 65487 

Rém: jel beadása 

SYS 65490 

Rém: jel kiadá.sa 

SYS 65484 

Rém: csatorna zárás 

!F ST = 0 THEN NEXT 

CLOSE 1 

Ezt az utasítássorozatot könnyen át lehel ültetni asszemblcr- 
bc is. 


o . 
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282 

C64 

91/ 5 

Raster SpUt 

50.- 

283 

+4 

91/ 6 

ProcramnyiIvantartó 

80.- 

284 

C64 

91/ 6 

Heniazter 

60.- 

285 

C64 

91/ 6 

Digitalizált zene 

50.- 

266 

C64 

91/ 6 

Ékezetes MPS 802 

80.- 

287 

C64 

91/ 7 

•Ékezetes iratkészitó 

100.- 

286 

+4 

91/ 7 

Bűvös téglalap 

100.- 

289 

C64 

91/ 7 

Dominó ~ H 

100.- 

290 

C64 

91/ 7 

Raktáros 

BO.- 

29i 

+4 

91/ 7 

Tologató 

60.- 

292 

C64 

91/ 7 

Aren 2000 

50.- 

293 

C64 

91/ 7 

Bad Lamps 

80.- 

294 

C64 

91/ 7 

Operation Patriot 

50.- 

295 

+4 

91/ 7 

Mozaik - B 

90.- 

296 

+4 

91/ 7 

Lógi Kód 

60.- 

297 

C64 

92/ 1 

Dfttabevivö 

50.- 

298 

+4 

91/ 7 

Üomber 

50 .- 

299 

+4 

91/ 7 

Dominó - K 

50.- 

300 

+4 

91/ 7 

The Wall 

40.- 

301 

C64 

91/ 7 

Mozaik - K 

50.- 

302 

+4 

91/ 7 

Dominó - R 

60.- 

303 

+4 

91/ 7 

•Borgok Kincse 

190 

304 

+4 

91/ 7 

Asteroids 

60.- 

305 

C64 

91/ 9 

Ékezetes irat forrás 

40.- 

306 

C64 

91/ 9 

Yugo2 

50.- 

307 

C64 

91/ 9 

Adventure - Sz 

130.- 

308 

C64 

91/ 9 

Morze Oktató B. 

130.- 

309 

+4 

91/ 9 

Memory Oame Plus 

100.- 

310 

C64 

91/ 9 

*Capitaly 

13U.- 

311 

C64 

91/ 9 

•Gengszterek 

60.- 

312 

C64 

91/ 9 

•Küldetés 2000 

lOÜ.- 

313 

C64 

91/ 9 

Itt a $ hol a $ 

50 .- 

314 

C64 

91/ 9 

Hewing 

50.- 

315 

+4 

91/10 

Mikrobi 

50.- 

316 

+4 

91/30 

Nest of Fleas 

19U.- 

317 

+4 

91/10 

Adventure - F' 

100 .- 

316 

*A 

91/lÜ 

A vilaq szeme 

15U .- 

319 

Có4 

91/10 

Gondolkozó 

100 

320 

C64 

91/10 

Memori - B 

130 .- 

321 

+4 

91/10 

Hntekastély 

100.- 

322 

C64 

91/11 

Lottó 

80.- 

323 

C64 

91/11 

Totó 

80.- 

324 

C64 

91/11 

Német gyakorló 

60.- 

325 

+4 

91/U 

Beszélő szótár 

130.- 

326 

*4 

91/11 

Fiié éxaminer 

60.- 

327 

C64 

91/11 

Öprlte szerkessió 

50.- 

328 

C64 

91/11 

Egyszínű Sprite 

50.- 

329 

C64 

91/12 

Rulett javítás 

50.- 

330 

C64 

91/12 

Tőzsde 

130.- 

331 

C64 

91/12 

IQ teszt 

150.- 

332 

C64 

92/ 1 

Kdlandlap 

80.- 

333 

C64 

92/ l 

Levél Író 

80.- 

334 

064 

92/ 1 

K é per nv óma ssk 0 1 0 

130.- 

335 

C64 

92/ 1 

Sprite Kezelő 

100.- 

336 

064 

92< 1 

Sí - OPART 

40.- 

337 

C64 

92/ 2 

Pátiencé Quartet 

130.- 

338 

064 

92/ 2 

Monopol/ 

130.- 

339 

C64 

92/ 2 

Akasztófa 

60.- 

340 

C64 

92/ 2 

Karaktértervező 

60.- 

341 

C64 

92/ 3 

String Array Manager 

100.- 

342 

C64 

92/ 3 

Sprite Basic 

50.- 

343 

C64 

92/ 3 

Screen Help 

50.- 

344 

C64 

92/ 3 

Gyors validate 

60.- 

345 

C64 

92/ 3 

BASIC SYNTAXER I. 

190.- 

346 

C64 

92/ 4 

Tologató C64-re 

100.- 

347 

C64 

92/ 4 

ABC rendező 

100.- 

348 

C64 

92/ 5 

•Máték Római számok 

100.- 

349 

+4 

92/ 6 

TesztkészitÖ + értékelő 

100.- 

350 

C64 

92/ 3 

BASIC SYNTAXER II. 

190.- 

351 

*■4 

92/ 7 

Három játék 

110.- 

352 

^4 

92/ 7 

Szökés 

80.- 

353 

C64 

92/ 7 

Tóto 

150.- 

354 

C64 

92/ 7 

DIGIT analízis program 

110.- 

355 

+4 

92/ 7 

SCREEN DUMP 

150.- 

356 

C64 

92/ 9 

UNISEQ filékezelö 

130.- 

357 

C64 

92/ 9 

Graphic Copy 

60.- 

358 

C64 

92/10 

Printfox Resizer 

130.- 

359 

C+4 

92/U 

Tologató II. 

150.- 

360 

C+4 

92/12 

Sprite Plu9-4-en 

130.- 

361 

C64 

92/12 

Változói ista 

150.- 

362 

C64.+4 

93/ 2 

Szomszéd játék 

200.- 

363 

C64 

93/ 2 

Táblás játék 

200.- 

364 

C64 

93/ 2 

SEDA 

150.- 

365 

Cb4 

93/ 2 

415 • 20Ü 

120.- 

366 

+4 

93/ 2 

OTP hitel 

100.- 

367 

C64 

93/ 3 

Ca talog-Checkl CTCl 

150.- 

368 

C64 

9 3/3 

Pattogó golyók 

200.- 

369 

C64 

93/ 3 

Beszorítós íüO-GUTI) 

150.- 

370 

C64 

93/ 3 

•Zsirozas 

200.- 

371 

064 

93/ 4 

Attrib 64 

50.- 

372 

C64 

93/ 4 

Táblázatnyomrato 

60.- 

373 

C+4 

93/ 4 

Boritékkészitó 

80.- 

374 

C+4 

93/ 4 

TV-ora 

50.- 

375 

C64 

93/ 4 

Mini Domino 

150.- 

376 

C64 

93/ 4 

Meqathello 

120.- 

377 

C64 

93/ 4 

Reversi 

120.- 

378 

C64 

93/ 4 

Tengeri csata 

120 .- 

379 

C64 

93/ 5 

Videokazetták 

80.- 

380 

0+4 

93/ 5 

DIN -karakterek 

80.- 

301 

|.■64 

93/ 5 

DÍRYDIRY 

80 .- 

382 

C64 

93/ 5 

Birodalom 

150 .- 


A *-getl jelólt programok csak lemezen rendelhetők 


EGYESÜLET 



Kérem, hogy a Commodore Újság legközelebbi számában 
jelenjen meg a következő szövegű apróhirdetés: 


(minden kockába egy betűt írjon) 



Tagsági szám: 


Feladandó az újság címére: 

Commodore Újság 
Budapest, 1388. Pf. 86. 

Alulírott megrendelem a következő programokat a PÖTYÖ- 
GŐSZOLGÁLAT-tól: 


PROGRAM SORSZÁMA 

ÁRA 

1. 




LU'- 

2. 




LU'- 

3. 




UU'- 

4. 




LU'- F* 

5. 




LU'- 

6. 




LU'- 

7. 



LU'- 

8. 



LU'- Ft 

9. 



L 

lUJ'- Ft 


Összesen: | | | db | | | | Ft 


A programokat a SZOLGÁLAT által biztosított 
lemezre (99 Ft/db) 
kazettára (40 Ft/db) 

az általam küldött adathordozóra kérem. 

(Kérjük a megfelelő szöveg aláhúzását!) 

Postaköltség + munkadíj 

A fizetés módja: személyesen — csekken — utánvéttel 

(Kérjük a megfelelő szöveg aláhúzását!) 

ÖSSZESEN: 

A megrendelő neve:. 


Címe: 
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APRÓCSKÁK 


KERESZTREJTVÉNY 




SHAW, 

GEORGE BERNARD 
( 1856 - 1950 ) 

Közszájon forog még az 1932-ből 
való, de Magyarországon Hevesi Sándor 
fordításában csak 1946-ban bemutatásra, 
került Shaw komédia — Függőleges 1., 
54., 10. sorokban található. 

VÍZSZINTES: 1. írószer. 6. 1991. au¬ 
gusztus 11-én a televízió 2-es csatornán 
láthattuk ezt a jugoszláv filmet. 11. Szol- 
mizációs skála. 13. Testrész. 15. ... Mik¬ 
lós építőművész volt. 16. Rénium vegyje- 
le. 17. Azonosa 15. vízszintessel. 19. Fel¬ 
vagdos. 22. Lóbetegség. 23. Helység Fe¬ 
jér megyében. 24. Késő ellentéte. 25. Rit¬ 
ka férfinév. 26. Tolna megyei helység. 28. 
Belső szerv. 30. Győr-Sopron megyei 
helység. 31. Sajátkezűleg rövidítése. 32. 
Azonosa 13. vízszintessel. 34. Gyermek. 
36. Kínai hosszmérték. 37. Görög szónok. 
38. Hórihorgas. 39. Lángol. 41. Fanyar 
gyümölcs. 43. Széke.segyház. 44. Tantál 
vegyjele. 45. Férfinév. 47. Félig rektor. 
49. Számnév. 50. Hím állat. 51. Állatai. 
53. Cinke angolul. 54. Kis állat. 55. Áttört 
mintázatú kelme. 56. Szélesre nyit. 58. 
Fél órás. 60. Kicsinyítőképző. 61. Vés. 63. 
Nikkel vegyjele. 64. Szájat nyit. 66. Féltő. 
68. Ilyen terület is van. 70. S/.abad angol 
paraszt a hűbériség korában. 72. Buda¬ 
pesti mozi neve. 74. Krétai hegy. 75. Mát¬ 
rai helység. 

FÜGGŐLEGES: 3. Ausztriai és kam- 
bodz.sai gépkocsik jelzései. 4. Ülőhely. 5. 
Állam Elő-Ázsiában. 7. Franciaországi 
város. 8. Azonos a 17. vízszintessel. 9. 
Uruguay-i és luxemburgi gépk(x;sik jelzé¬ 
sei. 12. Visszatérő műsor a televízió l es 
csatornáján. 14. Azonos a 75. vízszintes¬ 
sel. 16. Bízik. 18. Község Borsod-Abaúj- 
Zemplén megyében. 20. Omladék. 21. 
Szeretetméltó.ság. 22. Kézimunkázik. 27. 


Körúti villamos. 29. Csúszós. 32. Vágó¬ 
észköz. 33. Azonos a 20. függőlegessel. 

34. Végtelen Tolna megyei helység (D). 

35. Német város. 40. Férfinév. 42. Sivata¬ 
gi állat. 44. Kémiai elem. 46. Somogy 
megyei helység. 47. Amerikai filmsorozat 
Dallas alcíme volt. 48. EAK fővárosa. 49. 


Azonos a 53. vízszintessel. 51. Azonos a 
18. függőleges.sel. 52. Betűvető. 57. Lati¬ 
nul feszes. 59. Magyar film címe (1937). 
62. Nagy nép. 64. Kötet oroszul. 65. Hét 
vezér egyike. 67. Ritka férfinév. 68. Fü¬ 
tyülő. 69. Éra. 71. Egyforma betűk. 73. 
Visszaád (!). 




Keresem a JCL Assembler 
programot. Cím: Hecti Flóri¬ 
án, 1174 Budapest, Kisfaludy 
u. 42. Tel.: 158-3423. 

Eladó Plus/4-es alapgép + 
magnó + programkazetták + 
zöld monitor. Ára: 12000 Ft. 
Czifi-a Zoltán, 5231 Fegyver¬ 
nek, Kiss János u. 18/a. 

C-64 kazettán 250 Ft/db le¬ 
mezek 60 Ft/db áron eladók. 
Cím: Csemáth Zoltán, 1171 
Budapest, Dalnok u. 5. 

o 


Eladó megkímélt állapotban: 
C-64/II. + 1541/11. drive + 
Junoszty TV + 130 db telele- 
mez + magnó + Citizen 120D 
+ 8 db jwogramkazetta + rését 
+ 2db joystick + lemeztartók 
+ Commodore Újságok. Csak 
egyben! Ára: 400(X) R. Czifira 
Zoltán, 5231 Fegyvernek, Kiss 
János u. 18/a. 

C-64-re programok cseréje és 
eladása! Csak lemezen! Papp 
Tibor, 1195 Budapest, 
Batthyány u. 


Tisztelt C-64 felhasználó! 
Megrendelhető az általunk 
kifejlesztett NARANCS 3 
6200 nevű katalógus készítő 
program. Márkás lemezen 
kapható. Tartozik hozzá még 
egy részletes, könnyen átte¬ 
kinthető használati utasítás 
is. Ára: 500 Ft, amely tartal¬ 
mazza a postaköltséget is. A 
program előnyeiről a 162- 
7724-es telefonszámon, vagy 
a fenti levélcímen kap felvi¬ 
lágosítást. 


A legújabb, legjobb IBM 
programok óriási választék¬ 
ban eladók, már 80 Ft-ért le¬ 
mezzel együtt! Válaszborí¬ 
tékra ingyenes tájékoztató. 
Nagy István, 1202 Budapest, 
Mártírok útja 151. 

Keresem Mocsári Gábor 
Egyszerű elektronikai kap¬ 
csolások, rajzolás és mérete¬ 
zés C-64-el című könyvét. 
Földvári László, 5420 Tűrke- 
ve. Vásártér 22/C. II./5. 
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APRÓCSKÁK 


AHRIB 

kiegészítés 


Az 1993. évi áprilisi szám¬ 
ban az 5. oldalon sajnálatos 
módon lemaradt az ATTRIB 
program vége és a hivatko¬ 


zott két melléklet. Ezeket 
pótlólag közöljük. A Pötyö¬ 
gőszolgálat természetesen a 
teljes programot küldi. 


Keresem Scanntronik/NCE 
egeret Interfésszel a Pagefox- 
hoz. Földvári László, 5420 
Túrkeve, Vásártér 22/C. II./5. 


o 

124 

daba 


125 

data 

o 

126 

data 

127 

data 

o 

128 

data 

129 

data 


130 

data 

o 

131 

data 


132 

data 

o 

133 

data 


134 

data 

o 

135 

data 

136 

data 

o 

137 

data 

138 

data 


139 

data 

o 

140 

data 


141 

data 

o 

142 

data 

143 

data 


O 

O 

o 

o 

Ü 

o 

o 

o 


anababcjapgacaohppkcafemdhkekjhn,1441 
ifgciggdkcjadicaejlmcanplnknacab,1739 
koadabkmaeabgaifcciecdemcfklkjah,1245 
kamhkcomemphmganebfefefcejeccafg,1863 
dbcodbcaecf jcaeeebf gef andtnchnnfd, 1067 
fJ fdcaedc1ddcmdoeden eecococo f1cc,946 
egejemefeoebenefccf1faebfcencoco,1098 
cofnfnanedeneecacgcafaebfcendkan,934 
cacedkcaeeejfcefedfeepfcfJancaed,963 
dmclcpcndodk caedemepfdefeeancafa,914 
dmclcpcndodkcafafcepfeefedfeefee,1029 
ancaebdmclcpcndodkcaebfcedeiej fg,902 
efeeancafefIdkcafefJfaefcacafidk,976 
cieecmfdcmfacmffcmfccjancaeeflep,938 
fnfidkcaeeebfeefcacaepdkcldmcmdo,964 
cmdncjcafidkfj fJeneneeeeelelanca,981 
emflepfnfidkcaemefeoehfeeicacaep,1110 
dkcidmcmdocmdncjcafIdkeoffenecef,963 
fcanaa,95 


(1.melléklet) 

5 open 2,8,2,"attrib,p,w" 

6 read v,w: 1=15: print#2,chr$(v)chrS(w); 
10 prlnttt2, chr$( V) ; 

13 close 2: end 


(2.mellek1et > 

126 data koadabkmaeabgaifcciecdemcfklga,1165 

127 data , 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

s> 


Figyelem! Figyelem! Most 
indul egy új lemezújság, 
aminek Meteor a neve. Még 
most küld el a címedet ha 
swapper vagy. Figyelem ma¬ 
gyar demócsapatok: Küldjé¬ 
tek memberlistát és leközöl¬ 
jük, ha hirdetést küldesz 
szintén leközöljük. Nemso¬ 
kára készen lesz az első 
szám és még valami: Most 
lesz egy party (1993. augusz¬ 
tus 28-án Várpalotán, és lesz 
bővebb információ a Meteor¬ 
ban lesz. Címünk: FUN- 
FACTORY, 8000 Székesfe¬ 
hérvár, Benke F. u. 13. fszt. 
1. Tel.: 132-4568. 


C-64-esek figyelem! Ne had¬ 
juk, hogy a jó öreg C-64-es 
napja leáldozzon! Programo¬ 
kat adok-veszek-cserélek. 
Szereld fel Te is a gépedet! 
Mindezt megteheted egy he¬ 
lyen, ahol HARDWARE ki¬ 
egészítők nagy választékban 
kaphatók programok. Cseré¬ 
hez listát kérek és küldök. 
Pázsit Tibor, 5650 Mezőbe- 
rény, Várkonyi u. 1. 

Zymosis-soft legújabb képes 
katalógusa 30 Ft-os bélyeg el¬ 
lenében megrenctelhető! 
(AMIGÁRA) Olcsó árak, ki¬ 
tűnő minőség, a legújabb si¬ 


kerprogramok, kedvezmények. 
ZYMOSIS-SOFT, 2621 Verő¬ 
ce, Asztalos János u. 8/b. 

Keresem a Flaschbier és 
Bright Music 1-2 programokat 
(C-64-re). Szabó Tibor, 6300 
Kalocsa, Kishalas sor 9. 

Eladó jó állapotban C-64 II. 
ár: 8800 Ft. Badenszky Csaba, 
2800 Tatabánya, Fő tér 9. 

Keresem a Superbase 64 
rendszerlemezt, ha lehet ma¬ 
gyarul és hiba mentesen! 
Földvári László, 5420 Túrke¬ 
ve, Vásártér 22/C. II./5. 


AMIGA-500 és AMIGA 
500+ (H-ogramok nagy vá¬ 
lasztékban garanciával kap¬ 
hatók Évánál! Másolás 30 
Ft/disk. No-Name lemezzel 
együtt 90 Ft. Listához, tájé¬ 
koztatóhoz szükséges 1 db 
lemez és 20 Ft-os bélyeg, 
vagy 70 Ft. Kopácsi Lajosné, 
H-1031 Budapest, Vízimol¬ 
nár u. 2. X/95. Római Ltp. 

Eladó megkímélt állapotban; 
C-64/II + 1541/n. drive + 
Junoszty TV + 130 db tele 
lemez + magnó + Citizen 
120D + 8 db programkazetta 
+ rését + 2 db joystick + 
lemeztartók + Commodore 
Újságok. Ára: 40 000 Ft. 
Ciffra Zoltán, 5231 Fegyver¬ 
nek, Kiss János út 18/a. 

Keresem a Grafika C-64-cn 
című könyvet eredeti áron, 
akár szétesve is. Bódi Lász¬ 
ló, 1076 Budapest, Dózsa 
Gy. út 14. III. 30. 

Videós élmények C-64-en di¬ 
gitalizálva. Olvassa a képúj¬ 
ságot C-64-en. 4000 féle 
Commodore alkatrész. 
Telefon: 173-17-83. 

C-64 floppy, dataset turbók 
700, Final III. 2600, Action 
Replay 2900, Simon’S + 
Help 1300, 64 KB-os tetsző¬ 
leges tartalmú cartridge-ok 
1500, epromok, epromégetők 
2100 Ft-ért eladók. Válaszbo¬ 
rítékért ismertető. Mikroklub, 
8100 Várpalota, Pf.: 65. 

Játék- és felhasználói, vala¬ 
mint demó programok el¬ 
adók! Kérjük tüntesse fel a 
gépe típusát és a hozzá tar- 
toró perifériákat. /Vzhatlan 
csomagolás, kedvezmények) 
Bélyeggel ellátott válaszborí¬ 
tékért listát küldünk. (Ami¬ 
ga) FRIEND TWO CREW, 
1399 Budapest, Pf.: 701/55, 
(C-64) BUMBLE BEE, 116 
Budapest, Sáfrány u. 44. 
Tel.: 162-7724. 
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EGYESÜLET 


ACOMP Kft. 

JÚNIUSI 
60 Ft-os 

vásárlási utalványa 

Beváltható 500 Ft feletti 
készpénzes vásárlás esetén a 
1141 Budapest, Almos vezér útja 17. 
szám alatti üzletben. 

Érvényes: 1993. június 30-ig. 

Egy személy részére egyszeri vásárláshoz 
egy utalvány használható fel! 


A NOVOTRADE SZERVÍZ Kft. az alább felsorolt szervizeiben 
mindenféle szervizszolgáltatás munkadíjából 10% kedvez¬ 
ményt ad az egyesületi tagoknak. 


1083 Budapest, Szigony u. 9. 

3525 Miskolc, Fazekas u. 1 — 3. 

5600 Békéscsaba, Bartók B. u. 37. 
6724 Szeged, Csongrádi sugárút 76. 
8000 Székesfehérvár, Rádió u. 15/A. 
9700 Szombathely, Szalonak u. 31. 


Tel.: 134-3153 
Tel.: 46/321-488 
Tel,: 66/327-195 
Tel.: 62/313-377 
Tel.: 22/319-765 
Tel.: 94/14-519 


Igazolás: a javítandó berendezés leadásakor egyesületi Igazolvánnyal. 
A kedvezmény többször is Igénybe vehető. 
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MAKROVILÁG 

utazási iroda 


Az Országos Commodore Egyesület szolgáltatásai 

Egyesületi tagoknak 20% kedvezmény: 


Beváltható 

utazás megrendelése esetén 

az Üllői úti főirodában az alábbiak szerint: 

6 000 Ft-lg — 200 Ft kedvezmény 

10 000 Ft-lg — 400 Ft kedvezmény 

20 000 Ft-lg — 500 Ft kedvezmény 

20 000 Ft felett — 1000 Ft kedvezmény 
Csopwrtok jelentkezése esetén további 
kedvezményekről az irodában lehet tárgyalni 






JÚNiUSi 

60 Ft-os 

vásárlási utalvány 

Beváltható készpénzes 
vásárlás Metén a 2C Áruházban. 
Bp. Xllh; Balzac u. 35. 

Érvényes; 1993. június 30-ig. 
/ 


HOBBI ELEKTRONIKA 

JÚNIUSI 
vásárlási utalványa 

Értéke: 

5000 Ft-lg 80Ft, 

5000 Ft felett 10% 

Beváltható a Hobbi Elektronika Kft.-nél. 
Budapest VII., Dózsa György u. 16. 
Telefon: 122-8892 

Egy személy részére egyszeri vásárláshoz 
egy utalvány használható fel! 


VC—20 memóriabővítés 3—27 kByte-os: kiépítéstől függő 

C—16, C—116 memóriájának bővítése 64 kByte-ra: 3500 Ft 

C—16 belső 16 kByte-os EPROM bővítés: 1450 Ft 

C—16 belső 32 kByte-os EPROM bővítés: 2900 Ft 

C—16 belső 8 kByte-os SOFT—ROM bővítés: 2800 Ft 

C—16 belső 32 kByte-os SOFT—ROM bővítés: 4000 Ft 

0—16 8 kByte-ról 32 kByte-ra átalakítás: 2000 Ft 

C—16 és 1541 kompatibilis lemezegység párhuzamosítása: 3200 Ft 

SOFTROM modul 32K, kikapcsoláskor sem felejt C-16, C-116, +4 5000 Ft 

FÉK C—16, C—116. +4 pctméteres sebességváltoztatás 

0%-tól 100%-ig fokozatmentesen 2000 Ft 

TTL IC-teszter (Cartridge+lemezen a program) 4300 Ft 

+4,0—16, C—116 UNI—ROM modul különféle kiépítésekben: 

— 8 kByte SOFT—ROM 3400 Ft 

— 16 kByte SOFT—ROM 4000 Ft 

— 8 kByte SOFT—ROM 16 kByte EPROM 4400 Ft 

— 16 kByte SOFT—ROM 16 kByte EPROM 5000 Ft 

— 16 kByte EPROM 2200 Ft 

Egyesület tagoknak 30% kedvezmény: 

Speeddos (átkapcsolható) operációs rendszer beépítése 

(C64 átalakítás, lemezegység átalakítás -t párhuzamos kábel) 5000 Ft 

1541 kompatibilis lemezegységbe elektronikus lemezlyukasztó beépítése 900 Ft 

PAGEFOX magyar ékezetes kiadvány-szerkesztő cartridge 
(a teljes A/4-es oldal kinyomtatásához 640 pont/soros nyomtató szükesé- 
ges minimum, pl. Citizen 120D) 5500 Ft 

FASTLOAD cartridge (lemezes gyorstöltő, másoló, monitor) 1500 Ft 

TTL IC-teszter cartridge -i- program 4300 FT 

288/256 Kbyte-os eprombank (vezérlő eprommal) 50(X) Ft 

Epromégető (2716-tól 27512-ig) 5000 Ft 

C64-hez tároló oszcilloszkóp 8000 Ft 

C64-bővItő-port elosztó (egyszerre 4 db cartridge lehet a gépben, melyeket 
gombnyomásra lehet kapcsolni) 7500 Ft 

C64 USER - CENTRONICS nyomtatókábel (GEOS kábel) 1500 Ft 

256 K RAM-diszk (256 Kbyte RAM-mal) 14000 Ft 

256 K RAM-diszk (64 Kbyte RAM-mal) 9000 Ft 

2x64 Kbyte-os cartridge igény szerinti programokkal feltöltve 4.300 Ft 

64 Kbyte-os cartridge igény szerinti programokkal feltöltve 3000 Ft 

Képújság (teletext) dekóder C-64-re 10000 Ft 

1764-es RAM bővítő GEOS-hoz is használható 11250 Ft 

Epromok programozása meglévő programokkal, vagy saját hozott progra¬ 
mok beégetésével 2716-tól 27512-ig az eprommal együtt egységesen 700 Ft 

Arainkat az alkatrészárak változásai befolyásolhatják. 

A fenti bővítések megrendelhetők levélben az O.C.E. címén, valamint sze¬ 
mélyesen a havonta rendezendő klubdélelőttön, ahol rendszeres bemutatót 
is tartunk. 


Postázás esetén 100 Ft postaköltség kerül felszámításra. 

A kedvezmény igénybevételéhez az O.C.E. tagsági igazolvány bemutatása 
szükséges. 
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Hivatalos magyarországi disztribútora: 


Kft. 

Cím: 1053 Budapest, Henszimann I. u. 9 
Telefon: 117-4144 Telefax: 117-9692 




Cserélhető lemezes winchester! 


Szervizeinkben és szerződött viszonteladóinkon keresztül az alábbiakat forgalmazzuk: 


SQ 555 

44 MB-OS 5 V 4 

SCSI drive, 

SQ 400 lemez 

( 44 MB) 

SQ 5110 

88 MB-OS 5 V 4 

SCSI drive, 

SQ 800 lemez 

( 88 MB) 

SQ 3105A 

105 MB-OS 3 V 2 

AT-BUS drive, 

SQ 310 lemez 

(105 MB) 

SQ 2542A 

42 MB-OS 2 V 2 

AT-BUS drive, 

SQ 240 lemez 

( 42 MB) 
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Számítógépszerviz ! 


Személyi számítógépek és perifériák javítását, karbantartását továbbra is tőlünk 
rendelje meg! Gyors, pontos és megbízható! Örök garanciát kap, 
ha átalánydíjas javítási és karbantartási szerződésformánkkal 
védi nagyértékű gépei műszaki állapotát. 
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Várjuk jelentkezését az alábbi szervizeinkben: 


1083 Budapest, Szigony u. 8. 

3525 Miskolc, Fazekas u. 1-3. 

5600 Békéscsaba, Bartók B. u. 37. 

6724 Szeged, Csongrádi sgt. 76. 

8000 Székesfehérvár, Rádió u. 15/a. 

9700 Szombathely, Szalonak u. 31. 


Tel.: 1343-153 
Tel.: 46/321-488 
Tel.: 66/327-195 
Tel.: 62/313-377 
Tel.: 22/319-765 
Tel.: 94/14-519 


NOVOTRADE SZERVIZ KFT. 
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Áraink az 1 év garanciát és az ÁFA-t tartaimazzák! 


1141 Budapest, Álmos vezér útja 17., Tel.: 183-1817, Fax: 251-2523 


Nyltvatartás 9—18 óráig, szombaton: 9—13 óráig. 


A bruttó árat előzetes átutalással, illetve a helyszínen készpénzben kérjük fizetni. 

Az árajánlatban szereplő adatok, árak mindenkori változtatásának jogát fenntartjuk! 


SKKHCSejArtXST 


Commodore Amiga 500 

32 900 

Ft 

Commodore Amiga 500 Plus 

32 900 

Ft 

Commodore Amiga 600 

33 500 

Ft 

Commodore Amiga 1200 

56 900 

Ft 

Commodore Amiga 4000/040/6MB/120MB 

279000 

Ft 

+ 4 MB RAM modul 

29 000 

Ft 

Commodore 1084 s Stereo-Color monitor 

29 900 

Ft 

Commodore A-520 TV-Modulator 

3 500 

Ft 

Commodore C-64 II 

8 990 

Ft 

Commodore C-64 + Joystick + játék 

8 990 

Ft 

Commodore C-128D 

24 990 

Ft 

Commodore 1541 II Floppy 

11 750 


Commodore 1802 monitor 

24 900 

Ft 

Commodore Datassette 

1 89JÍ-Ft 

Commodore MPS 1230 printer 

22 991 

Ft 

Philips 8833 II. Stereo-jColer .mKjkSr 

29 900 

R 

512 Kb órás memófiabővftÖ 

3200 

Ft 

2.0 Mb órás memófíabóvítő 

14 900 

Ft 

1.0 Mb-os chip bővítő Amiga 500 Plus-ba 

5 900 

Ft 

1.0 Mb-os órás chip bővítő Amiga 600-ba 

6 900 

Ft 

3.5” külső floppy drive 

9 490 

Ft 

Noris AitqQft 500 porvédő 

990 

Ft 

Noris.C'64 II ponrédó 

790 

Ft 

QuiqteiKá Apache Joystick 

890 

Ft 

QUidatiel Phyton Joystick 

990 

Ft 

Quickshot OS -J13 analóg joystick 

990 

Ft 

Quickshot QS - 123 áháéf4S3^^ 

990 

Ft 

Noris mouse pad ' 

250 

Ft 

Noris MB 80 3.5” lemeztartó 

^490- 

R 

Noris DB 100 5.25" lemeztartó 

490 

Ft 

Noris üveg 14” monitorfilter 

1 990 

Ft 

Samsung 24 tűs printer 

37 500 

Ft 


NoNiSe *5?* - DSDD lemez 460 Ft 

NsName 3.5” DSHDT®^- . 750 Ft 

MoName 5.25” DSDD lemez 200 Ft 

NoName 5.25" DSHD lemez 390 Ft 

Maxell 3.5" MF2-DD lemez 890 Ft 

Maxell 3.5”' H^-HU lemez 1 550 Ft 

Maxell 5.25” MD2-D lemez 590 Ft 

Maxell 5.25” MD2-HD lemez 7§Ö Ft 

■Profex 3.5” DSDD lemez (11 db/Form) 690, Ft 

Profex 3.5” DSHD lemez (11«db/ftrf)tr ^090 Ft 

i Profex 5|5” ^H| Ft 


Fuji 1^” |d ^RI^zÍ i I 
Amiga peplayTuIK HT + könyv 
4-^ayer Adapter (4 Joystick csatoló) 
C-64 Action Be^ay MK VI. + könyv 
C-64 midi szoftverrel 
C-84/0"128 mouse 

Swifty Amiga/Afaf Mouse (3 gombos) 
Mouse/Joystick automatikus 
Midi Amiga Interface 
Handyscanner Amigához 
Boot Selector Amigához 
Stereo hangdigitalizáló Amigához 
Trackball Amigához 
Képdigitalizáló + RGB Splitter 
Rochard HD kontroller A500/A500+ 

+ 80 Mbyte Winché^rel 
+ 1 Mbyte SIMM Rarn 
Sound Blaster PRO Deluxe 
SoiKKi Blaster 16 Bit 
Amiga Magazin (német) újság 
Power Play (német) újság 


Hou ri 

9990 Ft 

1 890 Ft 

5 900 Ft 

6 500 Ft 

2 500 Ft 
500 Ft 

1 990 Ft 

2 990 Ft 
13 900 Ft 

1 490 Ft 

6 900 Ft 

3 590 Ft 
12 900 Ft 
19 900 Ft 
44 900 Ft 

4 990 Ft 
18 900 Ft 
29 900 Ft 

450 Ft 
450 Ft 


Ára: 78 Ft 


















